[Moss-devel] CVS: moss/rmc/src/rmcgen/Getopt-Declare-1.08/lib/Getopt Declare.pm,NONE,1.1 Declare.pod,NONE,1.1

[Alexander Feder <address@hidden>]

Update of /cvsroot/moss/moss/rmc/src/rmcgen/Getopt-Declare-1.08/lib/Getopt
In directory 
subversions:/tmp/cvs-serv2212/src/rmcgen/Getopt-Declare-1.08/lib/Getopt

Added Files:
        Declare.pm Declare.pod 
Log Message:
added rmc


--- NEW FILE ---
package Getopt::Declare;

use strict;
use vars qw($VERSION);
use UNIVERSAL qw(isa);

$VERSION = '1.08';


package Getopt::Declare::StartOpt;

sub new        { bless {} }
sub matcher    { '(?:()' }
sub code       { '' }
sub cachecode  { '' }
sub trailer    { undef }
sub ows        { return $_[1]; }

package Getopt::Declare::EndOpt;
[...1240 lines suppressed...]
                print STDERR "\n(try '$0 ".'# . Getopt::Declare::Arg::besthelp
                                . q#'."' for more information)\n";
          }

          unless ($self->{_internal}{source})
          {
                  @ARGV = ();
                  foreach ( @_unused ) { tr/\0/ /; push @ARGV, $_; }
          }

          unless ($_errors) { foreach (@_deferred) { &$_ } }

          !$_errors;

        }
        #;
}

1;
__END__

--- NEW FILE ---
=head1 NAME

Getopt::Declare - Declaratively Expressed Command-Line Arguments via Regular 
Expressions

=head1 VERSION

This document describes version 1.08 of Getopt::Declare,
released May 21, 1999.

=head1 SYNOPSIS

 use Getopt::Declare;

 $args = new Getopt::Declare ($specification_string, $optional_source);


=head1 DESCRIPTION

=head2 Overview
[...1833 lines suppressed...]

Damian Conway (address@hidden)


=head1 BUGS AND ANNOYANCES

There are undoubtedly serious bugs lurking somewhere in this code.

If nothing else, it shouldn't take 1500 lines to explain a
package that was designed for intuitive ease of use!

Bug reports and other feedback are most welcome.


=head1 COPYRIGHT

       Copyright (c) 1997, Damian Conway. All Rights Reserved.
     This module is free software. It may be used, redistributed
     and/or modified under the terms of the Perl Artistic License
          (see http://www.perl.com/perl/misc/Artistic.html)