r77429 - in /trunk/libgetopt-euclid-perl: ./ debian/ doc-pak/ lib/Getopt/ lib/Getopt/Euclid/ t/
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Wed Jul 13 16:13:04 UTC 2011
Author: periapt-guest
Date: Wed Jul 13 16:13:02 2011
New Revision: 77429
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=77429
Log:
New upstream release
Added:
trunk/libgetopt-euclid-perl/lib/Getopt/Euclid/HierDemo.pod
- copied unchanged from r77428, branches/upstream/libgetopt-euclid-perl/current/lib/Getopt/Euclid/HierDemo.pod
trunk/libgetopt-euclid-perl/lib/Getopt/Euclid/PodExtract.pm
- copied unchanged from r77428, branches/upstream/libgetopt-euclid-perl/current/lib/Getopt/Euclid/PodExtract.pm
trunk/libgetopt-euclid-perl/t/pod_file.pod
- copied unchanged from r77428, branches/upstream/libgetopt-euclid-perl/current/t/pod_file.pod
trunk/libgetopt-euclid-perl/t/pod_file.t
- copied unchanged from r77428, branches/upstream/libgetopt-euclid-perl/current/t/pod_file.t
trunk/libgetopt-euclid-perl/t/types_regex.t
- copied unchanged from r77428, branches/upstream/libgetopt-euclid-perl/current/t/types_regex.t
trunk/libgetopt-euclid-perl/t/types_vars.t
- copied unchanged from r77428, branches/upstream/libgetopt-euclid-perl/current/t/types_vars.t
Removed:
trunk/libgetopt-euclid-perl/doc-pak/
trunk/libgetopt-euclid-perl/t/regex_type.t
Modified:
trunk/libgetopt-euclid-perl/Build.PL
trunk/libgetopt-euclid-perl/Changes
trunk/libgetopt-euclid-perl/MANIFEST
trunk/libgetopt-euclid-perl/META.yml
trunk/libgetopt-euclid-perl/Makefile.PL
trunk/libgetopt-euclid-perl/README
trunk/libgetopt-euclid-perl/debian/changelog
trunk/libgetopt-euclid-perl/lib/Getopt/Euclid.pm
trunk/libgetopt-euclid-perl/lib/Getopt/Euclid/HierDemo.pm
trunk/libgetopt-euclid-perl/t/hier.t
trunk/libgetopt-euclid-perl/t/hier_no_pod.t
trunk/libgetopt-euclid-perl/t/insert_defaults.t
trunk/libgetopt-euclid-perl/t/messages.t
trunk/libgetopt-euclid-perl/t/types.t
Modified: trunk/libgetopt-euclid-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-euclid-perl/Build.PL?rev=77429&op=diff
==============================================================================
--- trunk/libgetopt-euclid-perl/Build.PL (original)
+++ trunk/libgetopt-euclid-perl/Build.PL Wed Jul 13 16:13:02 2011
@@ -2,16 +2,22 @@
use warnings;
use Module::Build;
+# If you updated this, don't forget to update the Makefile.PL file as well!
+
my $builder = Module::Build->new(
module_name => 'Getopt::Euclid',
+ dist_author => 'Damian Conway <DCONWAY at cpan.org>',
license => 'perl',
- dist_author => 'Damian Conway <DCONWAY at cpan.org>',
dist_version_from => 'lib/Getopt/Euclid.pm',
+
requires => {
- 'Test::More' => 0,
- 'version' => 0,
+ 'Test::More' => 0,
+ 'version' => 0,
+ 'File::Basename' => 0,
'File::Spec::Functions' => 0,
- 'List::Util' => 0,
+ 'List::Util' => 0,
+ 'Text::Balanced' => 0,
+ 'Perl::Tidy' => 0,
},
add_to_cleanup => [ 'Getopt-Euclid-*' ],
);
Modified: trunk/libgetopt-euclid-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-euclid-perl/Changes?rev=77429&op=diff
==============================================================================
--- trunk/libgetopt-euclid-perl/Changes (original)
+++ trunk/libgetopt-euclid-perl/Changes Wed Jul 13 16:13:02 2011
@@ -1,4 +1,21 @@
Revision history for Getopt-Euclid
+
+0.2.7
+ - Updated dependencies in Build.PL module
+
+0.2.6
+ - Bugfix: corrected a .pod file finding issue
+
+0.2.5
+ - Bugfix for #69324: more efficient and accurate POD extraction using Perl::Tidy
+ - Bugfix for #29301: automatically looking for POD located into .pod files
+ - Bugfix for #69105: file META.yml states which license the module uses
+ - Bugfix for #34200: variables in constraint specifications are read as
+ originating from the 'main' package namespace
+ - Little internal modification to prevent identical placeholders that are
+ present multiple times in the specification to be processed multiple times.
+ - Error messages for arguments that do not validate against the constraints
+ now display the value of variables instead of their name.
0.2.4
- Default values can now be specified in the POD and displayed in the program
Modified: trunk/libgetopt-euclid-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-euclid-perl/MANIFEST?rev=77429&op=diff
==============================================================================
--- trunk/libgetopt-euclid-perl/MANIFEST (original)
+++ trunk/libgetopt-euclid-perl/MANIFEST Wed Jul 13 16:13:02 2011
@@ -1,8 +1,9 @@
Build.PL
Changes
-doc-pak/README
lib/Getopt/Euclid.pm
lib/Getopt/Euclid/HierDemo.pm
+lib/Getopt/Euclid/HierDemo.pod
+lib/Getopt/Euclid/PodExtract.pm
Makefile.PL
MANIFEST This list of files
README
@@ -47,12 +48,15 @@
t/pod.t
t/pod_cmd_after_cut.t
t/pod_coverage.t
+t/pod_file.pod
+t/pod_file.t
t/quoted_args.t
-t/regex_type.t
t/repeatable.t
t/repeated.t
t/simple.t
t/simple_shuffle.t
t/types.t
+t/types_regex.t
+t/types_vars.t
t/vars_export.t
META.yml Module meta-data (added by MakeMaker)
Modified: trunk/libgetopt-euclid-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-euclid-perl/META.yml?rev=77429&op=diff
==============================================================================
--- trunk/libgetopt-euclid-perl/META.yml (original)
+++ trunk/libgetopt-euclid-perl/META.yml Wed Jul 13 16:13:02 2011
@@ -1,19 +1,22 @@
--- #YAML:1.0
name: Getopt-Euclid
-version: 0.2.4
+version: 0.2.7
abstract: Executable Uniform Command-Line Interface Descriptions
author:
- Damian Conway <DCONWAY at cpan.org>
-license: unknown
+license: perl
distribution_type: module
configure_requires:
ExtUtils::MakeMaker: 0
build_requires:
ExtUtils::MakeMaker: 0
requires:
+ File::Basename: 0
File::Spec::Functions: 0
List::Util: 0
+ Perl::Tidy: 0
Test::More: 0
+ Text::Balanced: 0
version: 0
no_index:
directory:
Modified: trunk/libgetopt-euclid-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-euclid-perl/Makefile.PL?rev=77429&op=diff
==============================================================================
--- trunk/libgetopt-euclid-perl/Makefile.PL (original)
+++ trunk/libgetopt-euclid-perl/Makefile.PL Wed Jul 13 16:13:02 2011
@@ -2,18 +2,24 @@
use warnings;
use ExtUtils::MakeMaker;
+# If you updated this, don't forget to update the Build.PL file as well!
+
WriteMakefile(
NAME => 'Getopt::Euclid',
AUTHOR => 'Damian Conway <DCONWAY at cpan.org>',
+ LICENSE => 'perl',
VERSION_FROM => 'lib/Getopt/Euclid.pm',
ABSTRACT_FROM => 'lib/Getopt/Euclid.pm',
+ PREREQ_PM => {
+ 'Test::More' => 0,
+ 'version' => 0,
+ 'File::Basename' => 0,
+ 'File::Spec::Functions' => 0,
+ 'List::Util' => 0,
+ 'Text::Balanced' => 0,
+ 'Perl::Tidy' => 0,
+ },
PL_FILES => {},
- PREREQ_PM => {
- 'Test::More' => 0,
- 'version' => 0,
- 'File::Spec::Functions' => 0,
- 'List::Util' => 0,
- },
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
clean => { FILES => 'Getopt-Euclid-*' },
);
Modified: trunk/libgetopt-euclid-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-euclid-perl/README?rev=77429&op=diff
==============================================================================
--- trunk/libgetopt-euclid-perl/README (original)
+++ trunk/libgetopt-euclid-perl/README Wed Jul 13 16:13:02 2011
@@ -1,4 +1,4 @@
-Getopt::Euclid version 0.2.4
+Getopt::Euclid
Getopt::Euclid uses your program's own documentation to create a com-
mand-line argument parser. This ensures that your program's documented
@@ -43,8 +43,11 @@
DEPENDENCIES
+File::Basename
File::Spec::Functions
List::Util
+Text::Balanced
+Perl::Tidy
COPYRIGHT AND LICENCE
Modified: trunk/libgetopt-euclid-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-euclid-perl/debian/changelog?rev=77429&op=diff
==============================================================================
--- trunk/libgetopt-euclid-perl/debian/changelog (original)
+++ trunk/libgetopt-euclid-perl/debian/changelog Wed Jul 13 16:13:02 2011
@@ -1,3 +1,9 @@
+libgetopt-euclid-perl (0.2.7-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Nicholas Bamber <nicholas at periapt.co.uk> Wed, 13 Jul 2011 17:16:06 +0100
+
libgetopt-euclid-perl (0.2.4-1) unstable; urgency=low
* New upstream release
Modified: trunk/libgetopt-euclid-perl/lib/Getopt/Euclid.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-euclid-perl/lib/Getopt/Euclid.pm?rev=77429&op=diff
==============================================================================
--- trunk/libgetopt-euclid-perl/lib/Getopt/Euclid.pm (original)
+++ trunk/libgetopt-euclid-perl/lib/Getopt/Euclid.pm Wed Jul 13 16:13:02 2011
@@ -1,16 +1,20 @@
package Getopt::Euclid;
-use version; $VERSION = qv('0.2.4');
+use version; $VERSION = qv('0.2.7');
use warnings;
use strict;
use Carp;
-use File::Spec::Functions qw(splitpath catpath);
+use File::Basename;
+use File::Spec::Functions qw(splitpath catpath catfile);
use List::Util qw( first );
-use Text::Balanced qw(extract_bracketed extract_multiple);
+use Text::Balanced qw(extract_bracketed extract_variable extract_multiple);
+use Getopt::Euclid::PodExtract;
+use Perl::Tidy;
# Set some module variables
-my $has_run;
+my $has_run = 0;
+my $constraints_processed = 0;
my @pm_pods;
my $minimal_keys;
my $vars_prefix;
@@ -105,7 +109,6 @@
# Parse and export arguments
Getopt::Euclid->process_args( \@ARGV ) unless $defer;
-
}
@@ -138,6 +141,8 @@
# arguments, and populate %ARGV (or export specific variable names)
my ($self, $args) = @_;
+ _process_constraints() unless $constraints_processed;
+
%ARGV = ();
# Handle standard args...
@@ -159,7 +164,8 @@
exit;
}
- # Report problems in parsing...
+ # Subroutine to report problems during parsing...
+
*_bad_arglist = sub {
my (@msg) = @_;
my $msg = join q{}, @msg;
@@ -170,6 +176,7 @@
};
# Run matcher...
+
my $all_args_ref = { %options_hash, %requireds_hash };
my $argv =
join( q{ }, map { my $arg = $_; $arg =~ tr/ \t/\0\1/; $arg } @$args );
@@ -178,6 +185,7 @@
}
# Check all requireds have been found...
+
my @missing;
for my $req ( keys %requireds_hash ) {
push @missing, "\t$req\n" if !exists $ARGV{$req};
@@ -196,8 +204,8 @@
_verify_args($all_args_ref);
- # Clean up @$args ... everything must have been parsed, so nothing left
-
+ # Clean up @$args since everything must have been parsed
+
@$args = ();
# Clean up %ARGV
@@ -269,7 +277,7 @@
}
-# ###### Utility subs #############
+# # # # # # # # Utility subs # # # # # # # #
# Recursively remove decorations on %ARGV keys
@@ -307,11 +315,6 @@
sub _process_prog_pod {
- # Acquire POD source...
- open my $fh, '<', $0
- or croak "Getopt::Euclid was unable to access POD\n($!)\nProblem was";
- my $source = do { local $/; <$fh> };
-
# Set up parsing rules...
my $HWS = qr{ [^\S\n]* }xms;
my $EOHEAD = qr{ (?= ^=head1 | \z) }xms;
@@ -338,33 +341,16 @@
)
}xms;
- my @pod_array = ();
- for my $pod ( $source, reverse @pm_pods ) {
-
- # Clean up line delimeters
- $pod =~ s{ [\n\r] }{\n}gx;
-
- # Clean up significant entities...
- $pod =~ s{ E<lt> }{<}gxms;
- $pod =~ s{ E<gt> }{>}gxms;
-
- # Sanitize PODs by removing rogue strings that contain POD text
- $pod =~ s{ <<(\S+).*? $POD_CMD .*? $POD_CMD .*? ^\1 }{<<$1;\n$1}gxms; # heredocs
- $pod =~ s{ (['"`]) $POD_CMD .*? $POD_CMD .*? \1 }{$1$1}gxms; # quoted
- $pod =~ s{ \( $POD_CMD .*? $POD_CMD .*? \) }{()}gxms; # bracketed
- $pod =~ s{ \{ $POD_CMD .*? $POD_CMD .*? \} }{{}}gxms;
- $pod =~ s{ \[ $POD_CMD .*? $POD_CMD .*? \] }{[]}gxms;
- $pod =~ s{ < $POD_CMD .*? $POD_CMD .*? > }{<>}gxms;
-
- # Extract POD alone...
- $pod = join "\n\n", $pod =~ m{ $POD_CMD .*? (?: $POD_CUT | \z ) }gxms;
-
- # Append to man
- push @pod_array, $pod if not $pod eq '';
-
- }
-
- $man = join("\n=cut\n\n", @pod_array);
+ # Acquire POD source...
+ my $source = $0;
+ $man = _get_pod( $source, reverse @pm_pods );
+
+ # Clean up line delimeters
+ $man =~ s{ [\n\r] }{\n}gx;
+
+ # Clean up significant entities...
+ $man =~ s{ E<lt> }{<}gxms;
+ $man =~ s{ E<gt> }{>}gxms;
# Put program name in man
($SCRIPT_NAME) = ( splitpath($0) )[-1];
@@ -561,10 +547,19 @@
$arg->{var}{$var}{type_error} = $val;
}
elsif ( $field eq 'type' ) {
+
+ # Restore fully-qualified name to variables:
+ # $x becomes $main::x
+ # $::x becomes $main::x
+ # $Package::x stays as $Package::x
+ $val =~ s/([\$\@\%])(::[a-z0-9]+)/$1main$2/gi;
+ if ($val !~ m/::/) {
+ $val =~ s/([\$\@\%])/$1main::/gi;
+ }
+
my ( $matchtype, $comma, $constraint ) =
$val =~ m{(/(?:\.|.)+/ | [^,\s]+)\s*(?:(,))?\s*(.*)}xms;
$arg->{var}{$var}{type} = $matchtype;
-
if ( $comma && length $constraint ) {
( $arg->{var}{$var}{constraint_desc} = $constraint ) =~
s/\s*\b\Q$var\E\b\s*//g;
@@ -586,6 +581,7 @@
: $STD_CONSTRAINT_FOR{$matchtype}
or _fail("Unknown .type constraint: $spec");
}
+
}
elsif ( $field eq 'default' ) {
eval "\$val = $val; 1"
@@ -637,6 +633,23 @@
}
+sub _process_constraints {
+ # In constraints that use a variable, replace the variable name by its value
+ for my $hash (\%requireds_hash, \%options_hash) {
+ while ( my ($entry, $props) = each %$hash ) {
+ while ( my ($var_name, $var_props) = each %{$props->{'var'}} ) {
+ my $constraint = $var_props->{'constraint_desc'};
+ next if not defined $constraint;
+ for my $var_name (extract_multiple($constraint,[sub{extract_variable($_[0],'')}],undef,1)) {
+ my $var_val = eval $var_name;
+ $var_name = quotemeta($var_name);
+ $var_props->{'constraint_desc'} =~ s/$var_name/$var_val/;
+ }
+ }
+ }
+ }
+ $constraints_processed = 1;
+}
sub _minimize_name {
my ($name) = @_;
@@ -768,7 +781,6 @@
}
undef %seen_vars;
-
# Enforce constraints and fill in defaults...
ARG:
for my $arg_name ( keys %{$arg_specs_ref} ) {
@@ -779,8 +791,7 @@
&& !$arg_specs_ref->{$arg_name}{has_defaults};
# Ensure all vars exist within arg...
- my @vars = @{ $arg_specs_ref->{$arg_name}{placeholders} || [] };
-
+ my @vars = keys %{$arg_specs_ref->{$arg_name}{placeholders}};
for my $index ( 0 .. $#{ $ARGV{$arg_name} } ) {
my $entry = $ARGV{$arg_name}[$index];
@{$entry}{@vars} = @{$entry}{@vars};
@@ -855,6 +866,7 @@
}
}
}
+
}
@@ -907,7 +919,7 @@
{ my ($var_name, $var_rep) = ($1, $2);
$var_name =~ s/(\s+)\[\\s\\0\\1]\*/$1/gxms;
my $type = $arg->{var}{$var_name}{type} || q{};
- push @{$arg->{placeholders}}, $var_name;
+ $arg->{placeholders}->{$var_name} = undef;
my $matcher = $type =~ m{\A\s*/.*/\s*\z}xms
? eval "qr$type"
: $STD_MATCHER_FOR{ $type }
@@ -1060,10 +1072,7 @@
sub _process_pm_pod {
my @caller = caller(2); # at import()'s level
- # Save module's POD...
- open my $fh, '<', $caller[1]
- or croak "Getopt::Euclid was unable to access POD\n($!)\nProblem was";
- push @pm_pods, do { local $/; <$fh> };
+ push @pm_pods, $caller[1];
# Install this import() sub as module's import sub...
no strict 'refs';
@@ -1075,6 +1084,36 @@
= bless sub { $lambda = 1; goto &Getopt::Euclid::import },
'Getopt::Euclid::Importer';
+}
+
+
+sub _get_pod {
+ # Extract source from a Perl script (.pl) or module (.pm), including content
+ # from corresponding .pod files if needed
+ my (@perl_files) = @_; # e.g. .pl, .pm or .t files
+
+ my $pod_string = '';
+ my $pod_extracter = Getopt::Euclid::PodExtract->new(\$pod_string);
+ for my $perl_file (@perl_files) {
+
+ # Get corresponding .pod file
+ my ($name, $path, $suffix) = fileparse($perl_file, qr/\.[^.]*/);
+ my $pod_file = catfile( $path, $name.'.pod' );
+ my @in_files = ($perl_file);
+ push @in_files, $pod_file if ( -e $pod_file );
+
+ # Extract POD...
+ for my $in_file (@in_files) {
+ Perl::Tidy::perltidy(
+ argv => [], # explicitly use no args to prevent use of @ARGV
+ source => $in_file,
+ formatter => $pod_extracter,
+ );
+ $pod_string .= "\n" if $pod_string;
+ }
+ }
+
+ return $pod_string;
}
@@ -1119,7 +1158,7 @@
=head1 VERSION
-This document describes Getopt::Euclid version 0.2.3
+This document describes Getopt::Euclid version 0.2.7
=head1 SYNOPSIS
@@ -1218,8 +1257,8 @@
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)
-
-
+
+
=head1 DESCRIPTION
Getopt::Euclid uses your program's own documentation to create a command-line
@@ -1327,7 +1366,54 @@
=head2 POD Interface
-This is where all the action is.
+This is where all the action is. POD markup can be placed in a .pod file that
+has the same prefix as the corresponding Perl file. Alternatively, POD can be
+inserted anywhere in the Perl code, but is typically added either after an
+__END__ statement (like in the L<SYNOPSIS>), or interspersed in the code:
+
+ use Getopt::Euclid;
+
+ =head1 NAME
+
+ yourprog - Your program here
+
+ =head1 REQUIRED ARGUMENTS
+
+ =over
+
+ =item -s[ize]=<h>x<w>
+
+ Specify size of simulation
+
+ =for Euclid:
+ h.type: int > 0
+ h.default: 24
+ w.type: int >= 10
+ w.default: 80
+
+ =back
+
+ =head1 OPTIONS
+
+ =over
+
+ =item -i
+
+ Specify interactive simulation
+
+ =back
+
+ =cut
+
+ if ($ARGV{-i}) {
+ print "Interactive mode...\n";
+ }
+
+ for my $x (0..$ARGV{-size}{h}-1) {
+ for my $y (0..$ARGV{-size}{w}-1) {
+ do_something_with($x, $y);
+ }
+ }
When Getopt::Euclid is loaded in a non-C<.pm> file, it searches that file for
the following POD documentation:
@@ -1360,7 +1446,7 @@
=head1 VERSION
This is version 1.2.3
-
+
or:
=head1 VERSION
@@ -1476,7 +1562,7 @@
$ARGV{'-i'}
$ARGV{'-in'}
$ARGV{'--from'}
-
+
to be set to the string C<'data.txt'>.
You could allow the optional C<=> to also be an optional colon by specifying:
@@ -1721,6 +1807,27 @@
so it's important to qualify any subroutines that are not in that namespace.
Furthermore, any subroutines used must be defined (or loaded from a module)
I<before> the C<use Getopt::Euclid> statement.
+
+You can also use constraints that involve variables. You must use the :defer
+mode and the variables must be globally accessible:
+
+ use Getopt::Euclid qw(:defer);
+ our $MIN_VAL = 100;
+ Getopt::Euclid->process_args(\@ARGV);
+
+ __END__
+
+ =head1 OPTIONS
+
+ =over
+
+ =item --magnitude <magnitude>
+
+ =for Euclid
+ magnitude.type: number, magnitude > $MIN_VAL
+
+ =back
+
=head2 Standard placeholder types
@@ -1909,7 +2016,7 @@
By default, the module only stores arguments into the global %ARGV hash.
You can request that options are exported as variables into the calling package
-the special C<':vars'> specifier:
+using the special C<':vars'> specifier:
use Getopt::Euclid qw( :vars );
@@ -2041,9 +2148,11 @@
Getopt::Euclid. Or you may intend to pass your own arguments manually only
using C<process_args()>.
-To allow to defer the parsing of arguments, use the specifier C<':defer'>:
+To defer the parsing of arguments, use the specifier C<':defer'>:
use Getopt::Euclid qw( :defer );
+ # Do something...
+ Getopt::Euclid->process_args(\@ARGV);
=head1 DIAGNOSTICS
@@ -2202,23 +2311,44 @@
=item *
+File::Basename
+
+=item *
+
File::Spec::Functions
=item *
List::Util
+=item *
+
+Text::Balanced
+
+=item *
+
+Perl::Tidy
+
=back
=head1 INCOMPATIBILITIES
-None reported.
+Getopt::Euclid may not work properly with POD in Perl files that have been
+converted into an executable with PerlApp or similar software. A possible
+workaround may be to move the POD to a __DATA__ section or a separate .pod file.
=head1 BUGS AND LIMITATIONS
Please report any bugs or feature requests to
C<bug-getopt-euclid at rt.cpan.org>, or through the web interface at
L<http://rt.cpan.org>.
+
+Getopt::Euclid has a development repository on Sourceforge.net at
+L<http://sourceforge.net/scm/?type=git&group_id=259291> in which the code is
+managed by Git. Feel free to clone this repository and push patches! To get started:
+ git clone L<git://getopt-euclid.git.sourceforge.net/gitroot/getopt-euclid/getopt-euclid>)
+ git branch 0.2.x origin/0.2.x
+ git checkout 0.2.x
=head1 AUTHOR
Modified: trunk/libgetopt-euclid-perl/lib/Getopt/Euclid/HierDemo.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-euclid-perl/lib/Getopt/Euclid/HierDemo.pm?rev=77429&op=diff
==============================================================================
--- trunk/libgetopt-euclid-perl/lib/Getopt/Euclid/HierDemo.pm (original)
+++ trunk/libgetopt-euclid-perl/lib/Getopt/Euclid/HierDemo.pm Wed Jul 13 16:13:02 2011
@@ -3,25 +3,3 @@
use Getopt::Euclid;
1;
-
-=head1 REQUIRED ARGUMENTS
-
-=over
-
-=item -i[nfile] [=]<file>
-
-Specify input file
-
-=for Euclid:
- file.type: readable
- file.default: '-'
-
-=item -o[ut][file]= <file>
-
-Specify output file
-
-=for Euclid:
- file.type: writable
- file.default: '-'
-
-=back
Modified: trunk/libgetopt-euclid-perl/t/hier.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-euclid-perl/t/hier.t?rev=77429&op=diff
==============================================================================
--- trunk/libgetopt-euclid-perl/t/hier.t (original)
+++ trunk/libgetopt-euclid-perl/t/hier.t Wed Jul 13 16:13:02 2011
@@ -116,7 +116,6 @@
and/or modified under the terms of the Perl Artistic License
(see http://www.perl.com/perl/misc/Artistic.html)
-=cut
=head1 REQUIRED ARGUMENTS
@@ -131,6 +130,7 @@
Specify output file
=back
+
';
Modified: trunk/libgetopt-euclid-perl/t/hier_no_pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-euclid-perl/t/hier_no_pod.t?rev=77429&op=diff
==============================================================================
--- trunk/libgetopt-euclid-perl/t/hier_no_pod.t (original)
+++ trunk/libgetopt-euclid-perl/t/hier_no_pod.t Wed Jul 13 16:13:02 2011
@@ -31,6 +31,7 @@
=back
+
';
my $man_test = Getopt::Euclid->man();
Modified: trunk/libgetopt-euclid-perl/t/insert_defaults.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-euclid-perl/t/insert_defaults.t?rev=77429&op=diff
==============================================================================
--- trunk/libgetopt-euclid-perl/t/insert_defaults.t (original)
+++ trunk/libgetopt-euclid-perl/t/insert_defaults.t Wed Jul 13 16:13:02 2011
@@ -185,6 +185,7 @@
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)
+
};
Modified: trunk/libgetopt-euclid-perl/t/messages.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-euclid-perl/t/messages.t?rev=77429&op=diff
==============================================================================
--- trunk/libgetopt-euclid-perl/t/messages.t (original)
+++ trunk/libgetopt-euclid-perl/t/messages.t Wed Jul 13 16:13:02 2011
@@ -110,6 +110,7 @@
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)
+
};
Modified: trunk/libgetopt-euclid-perl/t/types.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgetopt-euclid-perl/t/types.t?rev=77429&op=diff
==============================================================================
--- trunk/libgetopt-euclid-perl/t/types.t (original)
+++ trunk/libgetopt-euclid-perl/t/types.t Wed Jul 13 16:13:02 2011
@@ -110,8 +110,8 @@
got_args $ARGV{'-output'}, [$OUT1, $OUT2];
got_args $ARGV{'-out'}, [$OUT1, $OUT2];
-# type 'regex' tested in file ./t/regex_types.t
-
+# type 'regex' tested in file ./t/types_regex.t
+# comparison to $variables are tested in file ./t/types_vars.t
__END__
More information about the Pkg-perl-cvs-commits
mailing list