Profile of Perl/Critic/Utils/POD/ParseInteriorSequence.pm

Filename	/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Perl/Critic/Utils/POD/ParseInteriorSequence.pm
Statements	Executed 12 statements in 252µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	18µs	18µs	Perl::Critic::Utils::POD::ParseInteriorSequence::BEGIN@10
1	1	1	8µs	8µs	Perl::Critic::Utils::POD::ParseInteriorSequence::BEGIN@16
1	1	1	7µs	18µs	Perl::Critic::Utils::POD::ParseInteriorSequence::BEGIN@11
1	1	1	6µs	10µs	Perl::Critic::Utils::POD::ParseInteriorSequence::BEGIN@12
1	1	1	6µs	61µs	Perl::Critic::Utils::POD::ParseInteriorSequence::BEGIN@14
0	0	0	0s	0s	Perl::Critic::Utils::POD::ParseInteriorSequence::get_interior_sequences
0	0	0	0s	0s	Perl::Critic::Utils::POD::ParseInteriorSequence::interior_sequence

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::Utils::POD::ParseInteriorSequence;
9
10	2	43µs	1	18µs	# spent 18µs within Perl::Critic::Utils::POD::ParseInteriorSequence::BEGIN@10 which was called: # once (18µs+0s) by Perl::Critic::Policy::Documentation::RequirePodLinksIncludeText::BEGIN@20 at line 10 use 5.006001; # spent 18µs making 1 call to Perl::Critic::Utils::POD::ParseInteriorSequence::BEGIN@10
11	2	19µs	2	29µs	# spent 18µs (7+11) within Perl::Critic::Utils::POD::ParseInteriorSequence::BEGIN@11 which was called: # once (7µs+11µs) by Perl::Critic::Policy::Documentation::RequirePodLinksIncludeText::BEGIN@20 at line 11 use strict; # spent 18µs making 1 call to Perl::Critic::Utils::POD::ParseInteriorSequence::BEGIN@11 # spent 11µs making 1 call to strict::import
12	2	20µs	2	14µs	# spent 10µs (6+4) within Perl::Critic::Utils::POD::ParseInteriorSequence::BEGIN@12 which was called: # once (6µs+4µs) by Perl::Critic::Policy::Documentation::RequirePodLinksIncludeText::BEGIN@20 at line 12 use warnings; # spent 10µs making 1 call to Perl::Critic::Utils::POD::ParseInteriorSequence::BEGIN@12 # spent 4µs making 1 call to warnings::import
13
14	2	24µs	2	115µs	# spent 61µs (6+54) within Perl::Critic::Utils::POD::ParseInteriorSequence::BEGIN@14 which was called: # once (6µs+54µs) by Perl::Critic::Policy::Documentation::RequirePodLinksIncludeText::BEGIN@20 at line 14 use base qw{ Pod::Parser }; # spent 61µs making 1 call to Perl::Critic::Utils::POD::ParseInteriorSequence::BEGIN@14 # spent 54µs making 1 call to base::import
15
16	2	144µs	1	8µs	# spent 8µs within Perl::Critic::Utils::POD::ParseInteriorSequence::BEGIN@16 which was called: # once (8µs+0s) by Perl::Critic::Policy::Documentation::RequirePodLinksIncludeText::BEGIN@20 at line 16 use IO::String; # spent 8µs making 1 call to Perl::Critic::Utils::POD::ParseInteriorSequence::BEGIN@16
17
18	1	600ns			our $VERSION = '1.121';
19
20					#-----------------------------------------------------------------------------
21
22					sub interior_sequence {
23					my ( $self, $seq_cmd, $seq_arg, $pod_seq ) = @_;
24					push @{ $self->{+__PACKAGE__}{interior_sequence} \|\|= [] }, $pod_seq;
25					return $self->SUPER::interior_sequence( $seq_cmd, $seq_arg, $pod_seq );
26					}
27
28					#-----------------------------------------------------------------------------
29
30					sub get_interior_sequences {
31					my ( $self, $pod ) = @_;
32					$self->{+__PACKAGE__}{interior_sequence} = [];
33					my $result;
34					$self->parse_from_filehandle(
35					IO::String->new( \$pod ),
36					IO::String->new( \$result )
37					);
38					return @{ $self->{+__PACKAGE__}{interior_sequence} };
39					}
40
41					#-----------------------------------------------------------------------------
42
43	1	2µs			1;
44
45					__END__