|
BASIS
r3148
|
Constants.pm
Go to the documentation of this file.
00001 #============================================================= -*-Perl-*- 00002 # 00003 # Pod::POM::Constants 00004 # 00005 # DESCRIPTION 00006 # Constants used by Pod::POM. 00007 # 00008 # AUTHOR 00009 # Andy Wardley <abw@kfs.org> 00010 # Andrew Ford <a.ford@ford-mason.co.uk> 00011 # 00012 # COPYRIGHT 00013 # Copyright (C) 2000, 2001 Andy Wardley. All Rights Reserved. 00014 # Copyright (C) 2009 Andrew Ford. All Rights Reserved. 00015 # 00016 # This module is free software; you can redistribute it and/or 00017 # modify it under the same terms as Perl itself. 00018 # 00019 # REVISION 00020 # $Id: Constants.pm 78 2009-08-20 20:44:53Z ford $ 00021 # 00022 #======================================================================== 00023 00024 package BASIS::Pod::POM::Constants; 00025 00026 require 5.004; 00027 00028 use strict; 00029 00030 use vars qw( $VERSION @SEQUENCE @STATUS @EXPORT_OK %EXPORT_TAGS ); 00031 use parent qw( Exporter ); 00032 00033 $VERSION = sprintf("%d.%02d", q$Revision: 1.1.1.1 $ =~ /(\d+)\.(\d+)/); 00034 @SEQUENCE = qw( CMD LPAREN RPAREN FILE LINE CONTENT ); 00035 @STATUS = qw( IGNORE REDUCE REJECT ); 00036 @EXPORT_OK = ( @SEQUENCE, @STATUS ); 00037 %EXPORT_TAGS = ( 00038 status => [ @STATUS ], 00039 seq => [ @SEQUENCE ], 00040 all => [ @STATUS, @SEQUENCE ], 00041 ); 00042 00043 # sequence items 00044 use constant CMD => 0; 00045 use constant LPAREN => 1; 00046 use constant RPAREN => 2; 00047 use constant FILE => 3; 00048 use constant LINE => 4; 00049 use constant CONTENT => 5; 00050 00051 # node add return values 00052 use constant IGNORE => 0; 00053 use constant REDUCE => 1; 00054 use constant REJECT => 2; 00055 00056 00057 1; 00058 00059 =head1 NAME 00060 00061 Pod::POM::Constants 00062 00063 =head1 DESCRIPTION 00064 00065 Constants used by Pod::POM. 00066 00067 =head1 AUTHOR 00068 00069 Andy Wardley E<lt>abw@kfs.orgE<gt> 00070 00071 Andrew Ford E<lt>a.ford@ford-mason.co.ukE<gt> 00072 00073 =head1 COPYRIGHT AND LICENSE 00074 00075 Copyright (C) 2000, 2001 Andy Wardley. All Rights Reserved. 00076 00077 Copyright (C) 2009 Andrew Ford. All Rights Reserved. 00078 00079 This module is free software; you can redistribute it and/or 00080 modify it under the same terms as Perl itself. 00081 00082 =cut