Profile of Perl/Critic/Policy/InputOutput/ProhibitInteractiveTest.pm

Filename	/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Perl/Critic/Policy/InputOutput/ProhibitInteractiveTest.pm
Statements	Executed 16920 statements in 28.8ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
8379	1	1	27.0ms	195ms	Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::violates
144	1	1	263µs	263µs	Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::applies_to
1	1	1	22µs	22µs	Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::BEGIN@10
1	1	1	10µs	15µs	Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::BEGIN@12
1	1	1	10µs	80µs	Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::BEGIN@16
1	1	1	10µs	206µs	Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::BEGIN@15
1	1	1	10µs	25µs	Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::BEGIN@11
1	1	1	10µs	37µs	Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::BEGIN@13
1	1	1	9µs	11µs	Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::default_severity
1	1	1	2µs	2µs	Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::supported_parameters
0	0	0	0s	0s	Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::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::InputOutput::ProhibitInteractiveTest;
9
10	2	54µs	1	22µs	# spent 22µs within Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::BEGIN@10 which was called: # once (22µs+0s) by Module::Pluggable::Object::_require at line 10 use 5.006001; # spent 22µs making 1 call to Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::BEGIN@10
11	2	27µs	2	41µs	# spent 25µs (10+16) within Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::BEGIN@11 which was called: # once (10µs+16µs) by Module::Pluggable::Object::_require at line 11 use strict; # spent 25µs making 1 call to Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::BEGIN@11 # spent 16µs making 1 call to strict::import
12	2	25µs	2	20µs	# spent 15µs (10+5) within Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::BEGIN@12 which was called: # once (10µs+5µs) by Module::Pluggable::Object::_require at line 12 use warnings; # spent 15µs making 1 call to Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::BEGIN@12 # spent 5µs making 1 call to warnings::import
13	2	30µs	2	65µs	# spent 37µs (10+28) within Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::BEGIN@13 which was called: # once (10µs+28µs) by Module::Pluggable::Object::_require at line 13 use Readonly; # spent 37µs making 1 call to Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::BEGIN@13 # spent 28µs making 1 call to Exporter::import
14
15	2	32µs	2	403µs	# spent 206µs (10+197) within Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::BEGIN@15 which was called: # once (10µs+197µs) by Module::Pluggable::Object::_require at line 15 use Perl::Critic::Utils qw{ :severities }; # spent 206µs making 1 call to Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::BEGIN@15 # spent 197µs making 1 call to Exporter::import
16	2	184µs	2	149µs	# spent 80µs (10+70) within Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::BEGIN@16 which was called: # once (10µs+70µs) by Module::Pluggable::Object::_require at line 16 use base 'Perl::Critic::Policy'; # spent 80µs making 1 call to Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::BEGIN@16 # spent 70µs making 1 call to base::import
17
18	1	800ns			our $VERSION = '1.121';
19
20					#-----------------------------------------------------------------------------
21
22	1	2µs	1	39µs	Readonly::Scalar my $DESC => q{Use IO::Interactive::is_interactive() instead of -t}; # spent 39µs making 1 call to Readonly::Scalar
23	1	2µs	1	58µs	Readonly::Scalar my $EXPL => [ 218 ]; # spent 58µs making 1 call to Readonly::Scalar
24
25					#-----------------------------------------------------------------------------
26
27	1	5µs			# spent 2µs within Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::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 11µs (9+2) within Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::default_severity which was called: # once (9µs+2µ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 certrule ) }
30	144	359µs			# spent 263µs within Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::applies_to which was called 144 times, avg 2µs/call: # 144 times (263µs+0s) by Perl::Critic::_critique at line 165 of Perl/Critic.pm, avg 2µs/call sub applies_to { return 'PPI::Token::Operator' }
31
32					#-----------------------------------------------------------------------------
33
34					# spent 195ms (27.0+168) within Perl::Critic::Policy::InputOutput::ProhibitInteractiveTest::violates which was called 8379 times, avg 23µs/call: # 8379 times (27.0ms+168ms) by Perl::Critic::_critique at line 183 of Perl/Critic.pm, avg 23µs/call sub violates {
35	8379	1.93ms			my ($self, $elem, $doc) = @_;
36	8379	26.2ms	8379	168ms	return if $elem ne '-t'; # spent 168ms making 8379 calls to PPI::Element::__ne, avg 20µs/call
37					return $self->violation( $DESC, $EXPL, $elem );
38					}
39
40	1	4µs			1;
41
42					#-----------------------------------------------------------------------------
43
44					__END__