← 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/Quote/Literal.pm
StatementsExecuted 16 statements in 254µs
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
1111.21ms1.32msPPI::Token::Quote::Literal::::BEGIN@33PPI::Token::Quote::Literal::BEGIN@33
11116µs19µsPPI::Token::Quote::Literal::::stringPPI::Token::Quote::Literal::string
11111µs23µsPPI::Token::Quote::Literal::::BEGIN@31PPI::Token::Quote::Literal::BEGIN@31
1119µs9µsPPI::Token::Quote::Literal::::BEGIN@36PPI::Token::Quote::Literal::BEGIN@36
1117µs37µsPPI::Token::Quote::Literal::::BEGIN@35PPI::Token::Quote::Literal::BEGIN@35
1113µs3µsPPI::Token::Quote::Literal::::BEGIN@32PPI::Token::Quote::Literal::BEGIN@32
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::Quote::Literal;
2
3=pod
4
5=head1 NAME
6
7PPI::Token::Quote::Literal - The literal quote-like operator
8
9=head1 INHERITANCE
10
11 PPI::Token::Quote::Literal
12 isa PPI::Token::Quote
13 isa PPI::Token
14 isa PPI::Element
15
16=head1 DESCRIPTION
17
18A C<PPI::Token::Quote::Literal> object represents a single literal
19quote-like operator, such as C<q{foo bar}>.
20
21=head1 METHODS
22
23There are no methods available for C<PPI::Token::Quote::Literal> beyond
24those provided by the parent L<PPI::Token::Quote>, L<PPI::Token> and
25L<PPI::Element> classes.
26
27Got any ideas for methods? Submit a report to rt.cpan.org!
28
29=cut
30
31222µs235µs
# spent 23µs (11+12) within PPI::Token::Quote::Literal::BEGIN@31 which was called: # once (11µs+12µs) by PPI::Token::BEGIN@56 at line 31
use strict;
# spent 23µs making 1 call to PPI::Token::Quote::Literal::BEGIN@31 # spent 12µs making 1 call to strict::import
32215µs13µs
# spent 3µs within PPI::Token::Quote::Literal::BEGIN@32 which was called: # once (3µs+0s) by PPI::Token::BEGIN@56 at line 32
use PPI::Token::Quote ();
# spent 3µs making 1 call to PPI::Token::Quote::Literal::BEGIN@32
33284µs11.32ms
# spent 1.32ms (1.21+113µs) within PPI::Token::Quote::Literal::BEGIN@33 which was called: # once (1.21ms+113µs) by PPI::Token::BEGIN@56 at line 33
use PPI::Token::_QuoteEngine::Full ();
# spent 1.32ms making 1 call to PPI::Token::Quote::Literal::BEGIN@33
34
35231µs266µs
# spent 37µs (7+30) within PPI::Token::Quote::Literal::BEGIN@35 which was called: # once (7µs+30µs) by PPI::Token::BEGIN@56 at line 35
use vars qw{$VERSION @ISA};
# spent 37µs making 1 call to PPI::Token::Quote::Literal::BEGIN@35 # spent 30µs making 1 call to vars::import
36
# spent 9µs within PPI::Token::Quote::Literal::BEGIN@36 which was called: # once (9µs+0s) by PPI::Token::BEGIN@56 at line 42
BEGIN {
371400ns $VERSION = '1.215';
38110µs @ISA = qw{
39 PPI::Token::_QuoteEngine::Full
40 PPI::Token::Quote
41 };
42174µs19µs}
# spent 9µs making 1 call to PPI::Token::Quote::Literal::BEGIN@36
43
- -
48#####################################################################
49# PPI::Token::Quote Methods
50
51=pod
52
53=begin testing string 8
54
55my $Document = PPI::Document->new( \"print q{foo}, q!bar!, q <foo>;" );
56isa_ok( $Document, 'PPI::Document' );
57my $literal = $Document->find('Token::Quote::Literal');
58is( scalar(@$literal), 3, '->find returns three objects' );
59isa_ok( $literal->[0], 'PPI::Token::Quote::Literal' );
60isa_ok( $literal->[1], 'PPI::Token::Quote::Literal' );
61isa_ok( $literal->[2], 'PPI::Token::Quote::Literal' );
62is( $literal->[0]->string, 'foo', '->string returns as expected' );
63is( $literal->[1]->string, 'bar', '->string returns as expected' );
64is( $literal->[2]->string, 'foo', '->string returns as expected' );
65
66=end testing
67
68=cut
69
70
# spent 19µs (16+3) within PPI::Token::Quote::Literal::string which was called: # once (16µs+3µs) by Perl::Critic::Policy::InputOutput::RequireEncodingWithUTF8Layer::_get_argument_string at line 68 of Perl/Critic/Policy/InputOutput/RequireEncodingWithUTF8Layer.pm
sub string {
711400ns my $self = shift;
7218µs13µs my @sections = $self->_sections;
# spent 3µs making 1 call to PPI::Token::_QuoteEngine::Full::_sections
731400ns my $str = $sections[0];
7416µs substr( $self->{content}, $str->{position}, $str->{size} );
75}
76
77=pod
78
79=begin testing literal 4
80
81my $Document = PPI::Document->new( \"print q{foo}, q!bar!, q <foo>;" );
82isa_ok( $Document, 'PPI::Document' );
83my $literal = $Document->find('Token::Quote::Literal');
84is( $literal->[0]->literal, 'foo', '->literal returns as expected' );
85is( $literal->[1]->literal, 'bar', '->literal returns as expected' );
86is( $literal->[2]->literal, 'foo', '->literal returns as expected' );
87
88=end testing
89
90=cut
91
921800ns*literal = *PPI::Token::Quote::Single::literal;
93
9412µs1;
95
96=pod
97
98=head1 SUPPORT
99
100See the L<support section|PPI/SUPPORT> in the main module.
101
102=head1 AUTHOR
103
104Adam Kennedy E<lt>adamk@cpan.orgE<gt>
105
106=head1 COPYRIGHT
107
108Copyright 2001 - 2011 Adam Kennedy.
109
110This program is free software; you can redistribute
111it and/or modify it under the same terms as Perl itself.
112
113The full text of the license can be found in the
114LICENSE file included with this module.
115
116=cut
Report produced by the NYTProf 6.01 Perl profiler, developed by Tim Bunce and Adam Kaplan.