local-lib5/lib/perl5/PPI/Structure/When.pm

   1 package PPI::Structure::When;
   2
   3 =pod
   4
   5 =head1 NAME
   6
   7 PPI::Structure::When - Circular braces for a when statement
   8
   9 =head1 SYNOPSIS
  10
  11   when ( something ) {
  12       ...
  13   }
  14
  15 =head1 INHERITANCE
  16
  17   PPI::Structure::When
  18   isa PPI::Structure
  19       isa PPI::Node
  20           isa PPI::Element
  21
  22 =head1 DESCRIPTION
  23
  24 C<PPI::Structure::When> is the class used for circular braces that
  25 contain the thing to be matched in a when statement.
  26
  27 =head1 METHODS
  28
  29 C<PPI::Structure::When> has no methods beyond those provided by the
  30 standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
  31
  32 Got any ideas for methods? Submit a report to rt.cpan.org!
  33
  34 =cut
  35
  36 use strict;
  37 use PPI::Structure ();
  38
  39 use vars qw{$VERSION @ISA};
  40 BEGIN {
  41         $VERSION = '1.206';
  42         @ISA     = 'PPI::Structure';
  43 }
  44
  45 1;
  46
  47 =pod
  48
  49 =head1 SUPPORT
  50
  51 See the L<support section|PPI/SUPPORT> in the main module.
  52
  53 =head1 AUTHOR
  54
  55 Adam Kennedy E<lt>adamk@cpan.orgE<gt>
  56
  57 =head1 COPYRIGHT
  58
  59 Copyright 2001 - 2009 Adam Kennedy.
  60
  61 This program is free software; you can redistribute
  62 it and/or modify it under the same terms as Perl itself.
  63
  64 The full text of the license can be found in the
  65 LICENSE file included with this module.
  66
  67 =cut