← 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/Interpolate.pm
StatementsExecuted 11 statements in 157µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11115µs27µsPPI::Token::Quote::Interpolate::::BEGIN@31PPI::Token::Quote::Interpolate::BEGIN@31
1119µs9µsPPI::Token::Quote::Interpolate::::BEGIN@36PPI::Token::Quote::Interpolate::BEGIN@36
1116µs34µsPPI::Token::Quote::Interpolate::::BEGIN@35PPI::Token::Quote::Interpolate::BEGIN@35
1113µs3µsPPI::Token::Quote::Interpolate::::BEGIN@32PPI::Token::Quote::Interpolate::BEGIN@32
1113µs3µsPPI::Token::Quote::Interpolate::::BEGIN@33PPI::Token::Quote::Interpolate::BEGIN@33
0000s0sPPI::Token::Quote::Interpolate::::stringPPI::Token::Quote::Interpolate::string
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::Interpolate;
2
3=pod
4
5=head1 NAME
6
7PPI::Token::Quote::Interpolate - The interpolation quote-like operator
8
9=head1 INHERITANCE
10
11 PPI::Token::Quote::Interpolate
12 isa PPI::Token::Quote
13 isa PPI::Token
14 isa PPI::Element
15
16=head1 DESCRIPTION
17
18A C<PPI::Token::Quote::Interpolate> object represents a single
19interpolation quote-like operator, such as C<qq{$foo bar $baz}>.
20
21=head1 METHODS
22
23There are no methods available for C<PPI::Token::Quote::Interpolate>
24beyond those 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
31220µs238µs
# spent 27µs (15+12) within PPI::Token::Quote::Interpolate::BEGIN@31 which was called: # once (15µs+12µs) by PPI::Token::BEGIN@57 at line 31
use strict;
# spent 27µs making 1 call to PPI::Token::Quote::Interpolate::BEGIN@31 # spent 12µs making 1 call to strict::import
32216µs13µs
# spent 3µs within PPI::Token::Quote::Interpolate::BEGIN@32 which was called: # once (3µs+0s) by PPI::Token::BEGIN@57 at line 32
use PPI::Token::Quote ();
# spent 3µs making 1 call to PPI::Token::Quote::Interpolate::BEGIN@32
33218µs13µs
# spent 3µs within PPI::Token::Quote::Interpolate::BEGIN@33 which was called: # once (3µs+0s) by PPI::Token::BEGIN@57 at line 33
use PPI::Token::_QuoteEngine::Full ();
# spent 3µs making 1 call to PPI::Token::Quote::Interpolate::BEGIN@33
34
35230µs263µs
# spent 34µs (6+28) within PPI::Token::Quote::Interpolate::BEGIN@35 which was called: # once (6µs+28µs) by PPI::Token::BEGIN@57 at line 35
use vars qw{$VERSION @ISA};
# spent 34µs making 1 call to PPI::Token::Quote::Interpolate::BEGIN@35 # spent 28µs making 1 call to vars::import
36
# spent 9µs within PPI::Token::Quote::Interpolate::BEGIN@36 which was called: # once (9µs+0s) by PPI::Token::BEGIN@57 at line 42
BEGIN {
371300ns $VERSION = '1.215';
3819µs @ISA = qw{
39 PPI::Token::_QuoteEngine::Full
40 PPI::Token::Quote
41 };
42163µs19µs}
# spent 9µs making 1 call to PPI::Token::Quote::Interpolate::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 qq{foo}, qq!bar!, qq <foo>;" );
56isa_ok( $Document, 'PPI::Document' );
57my $Interpolate = $Document->find('Token::Quote::Interpolate');
58is( scalar(@$Interpolate), 3, '->find returns three objects' );
59isa_ok( $Interpolate->[0], 'PPI::Token::Quote::Interpolate' );
60isa_ok( $Interpolate->[1], 'PPI::Token::Quote::Interpolate' );
61isa_ok( $Interpolate->[2], 'PPI::Token::Quote::Interpolate' );
62is( $Interpolate->[0]->string, 'foo', '->string returns as expected' );
63is( $Interpolate->[1]->string, 'bar', '->string returns as expected' );
64is( $Interpolate->[2]->string, 'foo', '->string returns as expected' );
65
66=end testing
67
68=cut
69
70sub string {
71 my $self = shift;
72 my @sections = $self->_sections;
73 my $str = $sections[0];
74 substr( $self->{content}, $str->{position}, $str->{size} );
75}
76
7712µs1;
78
79=pod
80
81=head1 SUPPORT
82
83See the L<support section|PPI/SUPPORT> in the main module.
84
85=head1 AUTHOR
86
87Adam Kennedy E<lt>adamk@cpan.orgE<gt>
88
89=head1 COPYRIGHT
90
91Copyright 2001 - 2011 Adam Kennedy.
92
93This program is free software; you can redistribute
94it and/or modify it under the same terms as Perl itself.
95
96The full text of the license can be found in the
97LICENSE file included with this module.
98
99=cut