Profile of Perl/Critic/Policy/ClassHierarchies/ProhibitOneArgBless.pm

Filename	/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Perl/Critic/Policy/ClassHierarchies/ProhibitOneArgBless.pm
Statements	Executed 27124 statements in 58.2ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
13481	1	1	44.5ms	315ms	Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::violates
144	1	1	280µs	280µs	Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::applies_to
1	1	1	16µs	16µs	Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::BEGIN@10
1	1	1	8µs	12µs	Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::BEGIN@12
1	1	1	7µs	58µs	Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::BEGIN@16
1	1	1	7µs	27µs	Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::BEGIN@13
1	1	1	7µs	474µs	Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::BEGIN@15
1	1	1	7µs	18µs	Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::BEGIN@11
1	1	1	6µs	7µs	Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::default_severity
1	1	1	2µs	2µs	Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::supported_parameters
0	0	0	0s	0s	Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::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::ClassHierarchies::ProhibitOneArgBless;
9
10	2	38µs	1	16µs	# spent 16µs within Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::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::ClassHierarchies::ProhibitOneArgBless::BEGIN@10
11	2	20µs	2	29µs	# spent 18µs (7+11) within Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::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::ClassHierarchies::ProhibitOneArgBless::BEGIN@11 # spent 11µs making 1 call to strict::import
12	2	19µs	2	16µs	# spent 12µs (8+4) within Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::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::ClassHierarchies::ProhibitOneArgBless::BEGIN@12 # spent 4µs making 1 call to warnings::import
13	2	27µs	2	47µs	# spent 27µs (7+20) within Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::BEGIN@13 which was called: # once (7µs+20µs) by Module::Pluggable::Object::_require at line 13 use Readonly; # spent 27µs making 1 call to Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::BEGIN@13 # spent 20µs making 1 call to Exporter::import
14
15	2	25µs	2	940µs	# spent 474µs (7+467) within Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::BEGIN@15 which was called: # once (7µs+467µs) by Module::Pluggable::Object::_require at line 15 use Perl::Critic::Utils qw{ :booleans :severities :classification :ppi }; # spent 474µs making 1 call to Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::BEGIN@15 # spent 467µs making 1 call to Exporter::import
16	2	155µs	2	108µs	# spent 58µs (7+50) within Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::BEGIN@16 which was called: # once (7µs+50µs) by Module::Pluggable::Object::_require at line 16 use base 'Perl::Critic::Policy'; # spent 58µs making 1 call to Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::BEGIN@16 # spent 50µs making 1 call to base::import
17
18	1	600ns			our $VERSION = '1.121';
19
20					#-----------------------------------------------------------------------------
21
22	1	2µs	1	29µs	Readonly::Scalar my $DESC => q{One-argument "bless" used}; # spent 29µs making 1 call to Readonly::Scalar
23	1	2µs	1	42µs	Readonly::Scalar my $EXPL => [ 365 ]; # spent 42µs making 1 call to Readonly::Scalar
24
25					#-----------------------------------------------------------------------------
26
27	1	5µs			# spent 2µs within Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::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::ClassHierarchies::ProhibitOneArgBless::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 ) }
30	144	383µs			# spent 280µs within Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::applies_to which was called 144 times, avg 2µs/call: # 144 times (280µs+0s) by Perl::Critic::_critique at line 165 of Perl/Critic.pm, avg 2µs/call sub applies_to { return 'PPI::Token::Word' }
31
32					#-----------------------------------------------------------------------------
33
34					# spent 315ms (44.5+270) within Perl::Critic::Policy::ClassHierarchies::ProhibitOneArgBless::violates which was called 13481 times, avg 23µs/call: # 13481 times (44.5ms+270ms) by Perl::Critic::_critique at line 183 of Perl/Critic.pm, avg 23µs/call sub violates {
35	13481	3.00ms			my ($self, $elem, undef) = @_;
36
37	13481	54.5ms	13481	270ms	return if $elem ne 'bless'; # spent 270ms making 13481 calls to PPI::Element::__ne, avg 20µs/call
38					return if ! is_function_call($elem);
39
40					if( scalar parse_arg_list($elem) == 1 ) {
41					return $self->violation( $DESC, $EXPL, $elem );
42					}
43					return; #ok!
44					}
45
46	1	3µs			1;
47
48					#-----------------------------------------------------------------------------
49
50					__END__