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 64     64   397 use strict;
  64         144  
  64         1570  
30 64     64   309 use PPI::Token::Quote ();
  64         105  
  64         698  
31 64     64   255 use PPI::Token::_QuoteEngine::Full ();
  64         130  
  64         6145  
32              
33             our $VERSION = '1.275';
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 2753 my $self = shift;
49 8         33 my @sections = $self->_sections;
50 8         13 my $str = $sections[0];
51 8         36 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