PPI::Token::ArrayIndex - Token getting the last index for an array

PPI documentation Contained in the PPI distribution.

Index

Code Index:

NAME

Top

PPI::Token::ArrayIndex - Token getting the last index for an array

INHERITANCE

Top

  PPI::Token::ArrayIndex
  isa PPI::Token
      isa PPI::Element

DESCRIPTION

Top

The PPI::Token::ArrayIndex token represents an attempt to get the last index of an array, such as $#array.

METHODS

Top

There are no additional methods beyond those provided by the parent 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::ArrayIndex;


use strict;
use PPI::Token ();

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





#####################################################################
# Tokenizer Methods

sub __TOKENIZER__on_char {
	my $t = $_[1];

	# Suck in till the end of the arrayindex
	my $line = substr( $t->{line}, $t->{line_cursor} );
	if ( $line =~ /^([\w:']+)/ ) {
		$t->{token}->{content} .= $1;
		$t->{line_cursor} += length $1;
	}

	# End of token
	$t->_finalize_token->__TOKENIZER__on_char( $t );
}

1;