← Index
NYTProf Performance Profile   « line view »
For /Users/timbo/perl5/perlbrew/perls/perl-5.18.2/bin/perlcritic
  Run on Sat Mar 19 22:12:22 2016
Reported on Sat Mar 19 22:14:10 2016

Filename/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/PPI/Token/_QuoteEngine/Simple.pm
StatementsExecuted 21875 statements in 41.5ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
16821118.3ms23.6msPPI::Token::_QuoteEngine::Simple::::newPPI::Token::_QuoteEngine::Simple::new
16821115.6ms61.4msPPI::Token::_QuoteEngine::Simple::::_fillPPI::Token::_QuoteEngine::Simple::_fill
111687µs739µsPPI::Token::_QuoteEngine::Simple::::BEGIN@6PPI::Token::_QuoteEngine::Simple::BEGIN@6
11111µs22µsPPI::Token::_QuoteEngine::Simple::::BEGIN@5PPI::Token::_QuoteEngine::Simple::BEGIN@5
1118µs8µsPPI::Token::_QuoteEngine::Simple::::BEGIN@9PPI::Token::_QuoteEngine::Simple::BEGIN@9
1117µs36µsPPI::Token::_QuoteEngine::Simple::::BEGIN@8PPI::Token::_QuoteEngine::Simple::BEGIN@8
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package PPI::Token::_QuoteEngine::Simple;
2
3# Simple quote engine
4
5219µs234µs
# spent 22µs (11+12) within PPI::Token::_QuoteEngine::Simple::BEGIN@5 which was called: # once (11µs+12µs) by PPI::Token::Quote::Double::BEGIN@37 at line 5
use strict;
# spent 22µs making 1 call to PPI::Token::_QuoteEngine::Simple::BEGIN@5 # spent 12µs making 1 call to strict::import
6298µs1739µs
# spent 739µs (687+52) within PPI::Token::_QuoteEngine::Simple::BEGIN@6 which was called: # once (687µs+52µs) by PPI::Token::Quote::Double::BEGIN@37 at line 6
use PPI::Token::_QuoteEngine ();
# spent 739µs making 1 call to PPI::Token::_QuoteEngine::Simple::BEGIN@6
7
8229µs265µs
# spent 36µs (7+29) within PPI::Token::_QuoteEngine::Simple::BEGIN@8 which was called: # once (7µs+29µs) by PPI::Token::Quote::Double::BEGIN@37 at line 8
use vars qw{$VERSION @ISA};
# spent 36µs making 1 call to PPI::Token::_QuoteEngine::Simple::BEGIN@8 # spent 29µs making 1 call to vars::import
9
# spent 8µs within PPI::Token::_QuoteEngine::Simple::BEGIN@9 which was called: # once (8µs+0s) by PPI::Token::Quote::Double::BEGIN@37 at line 12
BEGIN {
101300ns $VERSION = '1.215';
1119µs @ISA = 'PPI::Token::_QuoteEngine';
121108µs18µs}
# spent 8µs making 1 call to PPI::Token::_QuoteEngine::Simple::BEGIN@9
13
14
# spent 23.6ms (18.3+5.37) within PPI::Token::_QuoteEngine::Simple::new which was called 1682 times, avg 14µs/call: # 1682 times (18.3ms+5.37ms) by PPI::Tokenizer::_new_token at line 623 of PPI/Tokenizer.pm, avg 14µs/call
sub new {
151682506µs my $class = shift;
161682541µs my $separator = shift or return undef;
17
18 # Create a new token containing the separator
19 ### This manual SUPER'ing ONLY works because none of
20 ### Token::Quote, Token::QuoteLike and Token::Regexp
21 ### implement a new function of their own.
2216827.49ms33645.37ms my $self = PPI::Token::new( $class, $separator ) or return undef;
# spent 4.04ms making 1682 calls to PPI::Token::new, avg 2µs/call # spent 1.33ms making 1682 calls to PPI::Util::TRUE, avg 788ns/call
2316821.49ms $self->{separator} = $separator;
24
2516829.57ms $self;
26}
27
28
# spent 61.4ms (15.6+45.8) within PPI::Token::_QuoteEngine::Simple::_fill which was called 1682 times, avg 37µs/call: # 1682 times (15.6ms+45.8ms) by PPI::Token::_QuoteEngine::__TOKENIZER__on_char at line 51 of PPI/Token/_QuoteEngine.pm, avg 37µs/call
sub _fill {
291682365µs my $class = shift;
301682181µs my $t = shift;
3116824.76ms1682890µs my $self = $t->{token} or return undef;
# spent 890µs making 1682 calls to PPI::Util::TRUE, avg 529ns/call
32
33 # Scan for the end separator
3416823.60ms168244.9ms my $string = $self->_scan_for_unescaped_character( $t, $self->{separator} );
# spent 44.9ms making 1682 calls to PPI::Token::_QuoteEngine::_scan_for_unescaped_character, avg 27µs/call
351682321µs return undef unless defined $string;
361682523µs if ( ref $string ) {
37 # End of file
38 $self->{content} .= $$string;
39 return 0;
40 } else {
41 # End of string
4216821.22ms $self->{content} .= $string;
43168210.7ms return $self;
44 }
45}
46
4712µs1;
48
49=pod
50
51=head1 SUPPORT
52
53See the L<support section|PPI/SUPPORT> in the main module.
54
55=head1 AUTHOR
56
57Adam Kennedy E<lt>adamk@cpan.orgE<gt>
58
59=head1 COPYRIGHT
60
61Copyright 2001 - 2011 Adam Kennedy.
62
63This program is free software; you can redistribute
64it and/or modify it under the same terms as Perl itself.
65
66The full text of the license can be found in the
67LICENSE file included with this module.
68
69=cut