PPI::Token::Quote::Interpolate - The interpolation quote-like operator

PPI documentation Contained in the PPI distribution.

Index

Code Index:

NAME

Top

PPI::Token::Quote::Interpolate - The interpolation quote-like operator

INHERITANCE

Top

  PPI::Token::Quote::Interpolate
  isa PPI::Token::Quote
      isa PPI::Token
          isa PPI::Element

DESCRIPTION

Top

A PPI::Token::Quote::Interpolate object represents a single interpolation quote-like operator, such as qq{$foo bar $baz}.

METHODS

Top

There are no methods available for PPI::Token::Quote::Interpolate beyond those provided by the parent PPI::Token::Quote, PPI::Token and PPI::Element classes.

Got any ideas for methods? Submit a report to rt.cpan.org!

SUPPORT

Top

See the support section in the main module.

AUTHOR

Top

Adam Kennedy <adamk@cpan.org>

COPYRIGHT

Top

Copyright 2001 - 2011 Adam Kennedy.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.

PPI documentation Contained in the PPI distribution. 
package PPI::Token::Quote::Interpolate;


use strict;
use PPI::Token::Quote ();
use PPI::Token::_QuoteEngine::Full ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '1.215';
	@ISA     = qw{
		PPI::Token::_QuoteEngine::Full
		PPI::Token::Quote
	};
}





#####################################################################
# PPI::Token::Quote Methods


sub string {
	my $self     = shift;
	my @sections = $self->_sections;
	my $str      = $sections[0];
	substr( $self->{content}, $str->{position}, $str->{size} );	
}

1;