Profile of Perl/Critic/Policy/BuiltinFunctions/ProhibitComplexMappings.pm

Filename	/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Perl/Critic/Policy/BuiltinFunctions/ProhibitComplexMappings.pm
Statements	Executed 18 statements in 365µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	16µs	16µs	Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::BEGIN@10
1	1	1	11µs	16µs	Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::BEGIN@12
1	1	1	8µs	28µs	Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::BEGIN@13
1	1	1	8µs	70µs	Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::BEGIN@16
1	1	1	7µs	390µs	Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::BEGIN@15
1	1	1	7µs	18µs	Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::BEGIN@11
1	1	1	6µs	8µs	Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::default_severity
1	1	1	5µs	5µs	Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::supported_parameters
0	0	0	0s	0s	Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::applies_to
0	0	0	0s	0s	Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::default_themes
0	0	0	0s	0s	Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::violates

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					##############################################################################
2					# $URL$
3					# $Date$
4					# $Author$
5					# $Revision$
6					##############################################################################
7
8					package Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings;
9
10	2	40µs	1	16µs	# spent 16µs within Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::BEGIN@10 which was called: # once (16µs+0s) by Module::Pluggable::Object::_require at line 10 use 5.006001; # spent 16µs making 1 call to Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::BEGIN@10
11	2	20µs	2	29µs	# spent 18µs (7+11) within Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::BEGIN@11 which was called: # once (7µs+11µs) by Module::Pluggable::Object::_require at line 11 use strict; # spent 18µs making 1 call to Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::BEGIN@11 # spent 11µs making 1 call to strict::import
12	2	19µs	2	20µs	# spent 16µs (11+5) within Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::BEGIN@12 which was called: # once (11µs+5µs) by Module::Pluggable::Object::_require at line 12 use warnings; # spent 16µs making 1 call to Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::BEGIN@12 # spent 5µs making 1 call to warnings::import
13	2	23µs	2	49µs	# spent 28µs (8+20) within Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::BEGIN@13 which was called: # once (8µs+20µs) by Module::Pluggable::Object::_require at line 13 use Readonly; # spent 28µs making 1 call to Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::BEGIN@13 # spent 20µs making 1 call to Exporter::import
14
15	2	24µs	2	772µs	# spent 390µs (7+382) within Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::BEGIN@15 which was called: # once (7µs+382µs) by Module::Pluggable::Object::_require at line 15 use Perl::Critic::Utils qw{ :severities :classification }; # spent 390µs making 1 call to Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::BEGIN@15 # spent 382µs making 1 call to Exporter::import
16	2	224µs	2	132µs	# spent 70µs (8+62) within Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::BEGIN@16 which was called: # once (8µs+62µs) by Module::Pluggable::Object::_require at line 16 use base 'Perl::Critic::Policy'; # spent 70µs making 1 call to Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::BEGIN@16 # spent 62µs making 1 call to base::import
17
18	1	600ns			our $VERSION = '1.121';
19
20					#-----------------------------------------------------------------------------
21
22	1	2µs	1	28µs	Readonly::Scalar my $DESC => q{Map blocks should have a single statement}; # spent 28µs making 1 call to Readonly::Scalar
23	1	2µs	1	42µs	Readonly::Scalar my $EXPL => [ 113 ]; # spent 42µs making 1 call to Readonly::Scalar
24
25					#-----------------------------------------------------------------------------
26
27					# spent 5µs within Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::supported_parameters which was called: # once (5µs+0s) by Perl::Critic::Policy::new at line 88 of Perl/Critic/Policy.pm sub supported_parameters {
28					return (
29					{
30	1	7µs			name => 'max_statements',
31					description =>
32					'The maximum number of statements to allow within a map block.',
33					default_string => '1',
34					behavior => 'integer',
35					integer_minimum => 1,
36					},
37					);
38					}
39
40	1	2µs			# spent 8µs (6+1) within Perl::Critic::Policy::BuiltinFunctions::ProhibitComplexMappings::default_severity which was called: # once (6µs+1µs) by Perl::Critic::Policy::get_severity at line 331 of Perl/Critic/Policy.pm sub default_severity { return $SEVERITY_MEDIUM }
41					sub default_themes { return qw( core pbp maintenance complexity) }
42					sub applies_to { return 'PPI::Token::Word' }
43
44					#-----------------------------------------------------------------------------
45
46					sub violates {
47					my ( $self, $elem, undef ) = @_;
48
49					return if $elem ne 'map';
50					return if ! is_function_call($elem);
51
52					my $sib = $elem->snext_sibling();
53					return if !$sib;
54
55					my $arg = $sib;
56					if ( $arg->isa('PPI::Structure::List') ) {
57					$arg = $arg->schild(0);
58					# Forward looking: PPI might change in v1.200 so schild(0) is a PPI::Statement::Expression
59					if ( $arg && $arg->isa('PPI::Statement::Expression') ) {
60					$arg = $arg->schild(0);
61					}
62					}
63					# If it's not a block, it's an expression-style map, which is only one statement by definition
64					return if !$arg;
65					return if !$arg->isa('PPI::Structure::Block');
66
67					# If we get here, we found a sort with a block as the first arg
68					return if $self->{_max_statements} >= $arg->schildren()
69					&& 0 == grep {$_->isa('PPI::Statement::Compound')} $arg->schildren();
70
71					# more than one child statements
72					return $self->violation( $DESC, $EXPL, $elem );
73					}
74
75	1	3µs			1;
76
77					#-----------------------------------------------------------------------------
78
79					__END__