Profile of Perl/Critic/Policy/Subroutines/ProhibitSubroutinePrototypes.pm

Filename	/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Perl/Critic/Policy/Subroutines/ProhibitSubroutinePrototypes.pm
Statements	Executed 3210 statements in 5.50ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1016	1	1	3.73ms	51.3ms	Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::violates
144	1	1	272µs	272µs	Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::applies_to
1	1	1	16µs	16µs	Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::BEGIN@10
1	1	1	8µs	19µs	Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::BEGIN@11
1	1	1	8µs	61µs	Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::BEGIN@16
1	1	1	8µs	12µs	Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::BEGIN@12
1	1	1	8µs	28µs	Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::BEGIN@13
1	1	1	7µs	144µs	Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::BEGIN@15
1	1	1	6µs	7µs	Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::default_severity
1	1	1	2µs	2µs	Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::supported_parameters
0	0	0	0s	0s	Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::default_themes

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::Subroutines::ProhibitSubroutinePrototypes;
9
10	2	46µs	1	16µs	# spent 16µs within Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::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::Subroutines::ProhibitSubroutinePrototypes::BEGIN@10
11	2	20µs	2	30µs	# spent 19µs (8+11) within Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::BEGIN@11 which was called: # once (8µs+11µs) by Module::Pluggable::Object::_require at line 11 use strict; # spent 19µs making 1 call to Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::BEGIN@11 # spent 11µs making 1 call to strict::import
12	2	18µs	2	15µs	# spent 12µs (8+4) within Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::BEGIN@12 which was called: # once (8µs+4µs) by Module::Pluggable::Object::_require at line 12 use warnings; # spent 12µs making 1 call to Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::BEGIN@12 # spent 4µs making 1 call to warnings::import
13	2	22µs	2	48µs	# spent 28µs (8+20) within Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::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::Subroutines::ProhibitSubroutinePrototypes::BEGIN@13 # spent 20µs making 1 call to Exporter::import
14
15	2	27µs	2	280µs	# spent 144µs (7+136) within Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::BEGIN@15 which was called: # once (7µs+136µs) by Module::Pluggable::Object::_require at line 15 use Perl::Critic::Utils qw{ :severities }; # spent 144µs making 1 call to Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::BEGIN@15 # spent 136µs making 1 call to Exporter::import
16	2	138µs	2	115µs	# spent 61µs (8+54) within Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::BEGIN@16 which was called: # once (8µs+54µs) by Module::Pluggable::Object::_require at line 16 use base 'Perl::Critic::Policy'; # spent 61µs making 1 call to Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::BEGIN@16 # spent 54µs making 1 call to base::import
17
18	1	600ns			our $VERSION = '1.121';
19
20					#-----------------------------------------------------------------------------
21
22	1	2µs	1	27µs	Readonly::Scalar my $DESC => q{Subroutine prototypes used}; # spent 27µs making 1 call to Readonly::Scalar
23	1	2µs	1	42µs	Readonly::Scalar my $EXPL => [ 194 ]; # spent 42µs making 1 call to Readonly::Scalar
24
25					#-----------------------------------------------------------------------------
26
27	1	4µs			# spent 2µs within Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::supported_parameters which was called: # once (2µs+0s) by Perl::Critic::Policy::new at line 88 of Perl/Critic/Policy.pm sub supported_parameters { return () }
28	1	2µs			# spent 7µs (6+1) within Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::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_HIGHEST }
29					sub default_themes { return qw(core pbp bugs certrec ) }
30	144	402µs			# spent 272µs within Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::applies_to which was called 144 times, avg 2µs/call: # 144 times (272µs+0s) by Perl::Critic::_critique at line 165 of Perl/Critic.pm, avg 2µs/call sub applies_to { return 'PPI::Statement::Sub' }
31
32					#-----------------------------------------------------------------------------
33
34					# spent 51.3ms (3.73+47.5) within Perl::Critic::Policy::Subroutines::ProhibitSubroutinePrototypes::violates which was called 1016 times, avg 50µs/call: # 1016 times (3.73ms+47.5ms) by Perl::Critic::_critique at line 183 of Perl/Critic.pm, avg 50µs/call sub violates {
35	1016	288µs			my ( $self, $elem, undef ) = @_;
36	1016	1.11ms	1016	47.5ms	if ( $elem->prototype() ) { # spent 47.5ms making 1016 calls to PPI::Statement::Sub::prototype, avg 47µs/call
37					return $self->violation( $DESC, $EXPL, $elem );
38					}
39	1016	3.42ms			return; #ok!
40					}
41
42	1	3µs			1;
43
44					__END__