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 object represents a single
19             interpolation quote-like operator, such as C.
20              
21             =head1 METHODS
22              
23             There are no methods available for C
24             beyond those provided by the parent L, L and
25             L classes.
26              
27             =cut
28              
29 65     65   388 use strict;
  65         148  
  65         1552  
30 65     65   311 use PPI::Token::Quote ();
  65         123  
  65         705  
31 65     65   264 use PPI::Token::_QuoteEngine::Full ();
  65         114  
  65         6396  
32              
33             our $VERSION = '1.276';
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 2368 my $self = shift;
49 8         32 my @sections = $self->_sections;
50 8         15 my $str = $sections[0];
51 8         35 substr( $self->{content}, $str->{position}, $str->{size} );
52             }
53              
54             1;
55              
56             =pod
57              
58             =head1 SUPPORT
59              
60             See the L in the main module.
61              
62             =head1 AUTHOR
63              
64             Adam Kennedy Eadamk@cpan.orgE
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