File Coverage

blib/lib/PPI/Token/Quote/Interpolate.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 18 18 100.0


line stmt bran cond sub pod time code
1             package PPI::Token::Quote::Interpolate;
2              
3             =pod
4              
5             =head1 NAME
6              
7             PPI::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              
18             A C<PPI::Token::Quote::Interpolate> object represents a single
19             interpolation quote-like operator, such as C<qq{$foo bar $baz}>.
20              
21             =head1 METHODS
22              
23             There are no methods available for C<PPI::Token::Quote::Interpolate>
24             beyond those provided by the parent L<PPI::Token::Quote>, L<PPI::Token> and
25             L<PPI::Element> classes.
26              
27             =cut
28              
29 67     67   353 use strict;
  67         103  
  67         2003  
30 67     67   270 use PPI::Token::Quote ();
  67         86  
  67         848  
31 67     67   199 use PPI::Token::_QuoteEngine::Full ();
  67         82  
  67         7323  
32              
33             our $VERSION = '1.284';
34              
35             our @ISA = qw{
36             PPI::Token::_QuoteEngine::Full
37             PPI::Token::Quote
38             };
39              
40              
41              
42              
43              
44             #####################################################################
45             # PPI::Token::Quote Methods
46              
47             sub string {
48 8     8 1 2345 my $self = shift;
49 8         31 my @sections = $self->_sections;
50 8         12 my $str = $sections[0];
51 8         33 substr( $self->{content}, $str->{position}, $str->{size} );
52             }
53              
54             1;
55              
56             =pod
57              
58             =head1 SUPPORT
59              
60             See the L<support section|PPI/SUPPORT> in the main module.
61              
62             =head1 AUTHOR
63              
64             Adam Kennedy E<lt>adamk@cpan.orgE<gt>
65              
66             =head1 COPYRIGHT
67              
68             Copyright 2001 - 2011 Adam Kennedy.
69              
70             This program is free software; you can redistribute
71             it and/or modify it under the same terms as Perl itself.
72              
73             The full text of the license can be found in the
74             LICENSE file included with this module.
75              
76             =cut