package PPI::Token::ArrayIndex; =pod =head1 NAME PPI::Token::ArrayIndex - Token getting the last index for an array =head1 INHERITANCE PPI::Token::ArrayIndex isa PPI::Token isa PPI::Element =head1 DESCRIPTION The C<PPI::Token::ArrayIndex> token represents an attempt to get the last index of an array, such as C<$#array>. =head1 METHODS There are no additional methods beyond those provided by the parent L<PPI::Token> and L<PPI::Element> classes. Got any ideas for methods? Submit a report to rt.cpan.org! =cut use strict; use UNIVERSAL 'isa'; use base 'PPI::Token'; use vars qw{$VERSION}; BEGIN { $VERSION = '0.995'; } ##################################################################### # 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; =pod =head1 SUPPORT See the L<support section|PPI/SUPPORT> in the main module =head1 AUTHOR Adam Kennedy, L<http://ali.as/>, cpan@ali.as =head1 COPYRIGHT Copyright (c) 2004 - 2005 Adam Kennedy. All rights reserved. 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. =cut