local-lib5/lib/perl5/PPI/Token/Cast.pm

   1 package PPI::Token::Cast;
   2
   3 =pod
   4
   5 =head1 NAME
   6
   7 PPI::Token::Cast - A prefix which forces a value into a different context
   8
   9 =head1 INHERITANCE
  10
  11   PPI::Token::Cast
  12   isa PPI::Token
  13       isa PPI::Element
  14
  15 =head1 DESCRIPTION
  16
  17 A "cast" in PPI terms is one of more characters used as a prefix which force
  18 a value into a different class or context.
  19
  20 This includes referencing, dereferencing, and a few other minor cases.
  21
  22 For expressions such as C<@$foo> or C<@{ $foo{bar} }> the C<@> in both cases
  23 represents a cast. In this case, an array dereference.
  24
  25 =head1 METHODS
  26
  27 There are no additional methods beyond those provided by the parent
  28 L<PPI::Token> and L<PPI::Element> classes.
  29
  30 Got any ideas for methods? Submit a report to rt.cpan.org!
  31
  32 =cut
  33
  34 use strict;
  35 use PPI::Token ();
  36
  37 use vars qw{$VERSION @ISA};
  38 BEGIN {
  39         $VERSION = '1.206';
  40         @ISA     = 'PPI::Token';
  41 }
  42
  43
  44
  45
  46 #####################################################################
  47 # Tokenizer Methods
  48
  49 # A cast is either % @ $ or $#
  50 sub __TOKENIZER__on_char {
  51         $_[1]->_finalize_token->__TOKENIZER__on_char( $_[1] );
  52 }
  53
  54 1;
  55
  56 =pod
  57
  58 =head1 SUPPORT
  59
  60 See the L<support section|PPI/SUPPORT> in the main module.
  61
  62 =head1 AUTHOR
  63
  64 Adam Kennedy E<lt>adamk@cpan.orgE<gt>
  65
  66 =head1 COPYRIGHT
  67
  68 Copyright 2001 - 2009 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