local-lib5/lib/perl5/PPI/Token/Quote/Interpolate.pm

   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 Got any ideas for methods? Submit a report to rt.cpan.org!
  28
  29 =cut
  30
  31 use strict;
  32 use PPI::Token::Quote ();
  33 use PPI::Token::_QuoteEngine::Full ();
  34
  35 use vars qw{$VERSION @ISA};
  36 BEGIN {
  37         $VERSION = '1.206';
  38         @ISA     = qw{
  39                 PPI::Token::_QuoteEngine::Full
  40                 PPI::Token::Quote
  41         };
  42 }
  43
  44
  45
  46
  47
  48 #####################################################################
  49 # PPI::Token::Quote Methods
  50
  51 =pod
  52
  53 =begin testing string 8
  54
  55 my $Document = PPI::Document->new( \"print qq{foo}, qq!bar!, qq <foo>;" );
  56 isa_ok( $Document, 'PPI::Document' );
  57 my $Interpolate = $Document->find('Token::Quote::Interpolate');
  58 is( scalar(@$Interpolate), 3, '->find returns three objects' );
  59 isa_ok( $Interpolate->[0], 'PPI::Token::Quote::Interpolate' );
  60 isa_ok( $Interpolate->[1], 'PPI::Token::Quote::Interpolate' );
  61 isa_ok( $Interpolate->[2], 'PPI::Token::Quote::Interpolate' );
  62 is( $Interpolate->[0]->string, 'foo', '->string returns as expected' );
  63 is( $Interpolate->[1]->string, 'bar', '->string returns as expected' );
  64 is( $Interpolate->[2]->string, 'foo', '->string returns as expected' );
  65
  66 =end testing
  67
  68 =cut
  69
  70 sub 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
  77 1;
  78
  79 =pod
  80
  81 =head1 SUPPORT
  82
  83 See the L<support section|PPI/SUPPORT> in the main module.
  84
  85 =head1 AUTHOR
  86
  87 Adam Kennedy E<lt>adamk@cpan.orgE<gt>
  88
  89 =head1 COPYRIGHT
  90
  91 Copyright 2001 - 2009 Adam Kennedy.
  92
  93 This program is free software; you can redistribute
  94 it and/or modify it under the same terms as Perl itself.
  95
  96 The full text of the license can be found in the
  97 LICENSE file included with this module.
  98
  99 =cut