r19769 - in /branches/upstream/libparams-callbackrequest-perl/current: ./ lib/Params/ lib/Params/CallbackRequest/ t/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Fri May 9 13:14:55 UTC 2008
Author: gregoa
Date: Fri May 9 13:14:54 2008
New Revision: 19769
URL: http://svn.debian.org/wsvn/?sc=1&rev=19769
Log:
[svn-upgrade] Integrating new upstream version, libparams-callbackrequest-perl (1.18)
Modified:
branches/upstream/libparams-callbackrequest-perl/current/Build.PL
branches/upstream/libparams-callbackrequest-perl/current/Changes
branches/upstream/libparams-callbackrequest-perl/current/META.yml
branches/upstream/libparams-callbackrequest-perl/current/Makefile.PL
branches/upstream/libparams-callbackrequest-perl/current/README
branches/upstream/libparams-callbackrequest-perl/current/lib/Params/Callback.pm
branches/upstream/libparams-callbackrequest-perl/current/lib/Params/CallbackRequest.pm
branches/upstream/libparams-callbackrequest-perl/current/lib/Params/CallbackRequest/Exceptions.pm
branches/upstream/libparams-callbackrequest-perl/current/t/01basic.t
branches/upstream/libparams-callbackrequest-perl/current/t/02priority.t
branches/upstream/libparams-callbackrequest-perl/current/t/03keys.t
branches/upstream/libparams-callbackrequest-perl/current/t/04errors.t
branches/upstream/libparams-callbackrequest-perl/current/t/05object.t
branches/upstream/libparams-callbackrequest-perl/current/t/06object_request.t
branches/upstream/libparams-callbackrequest-perl/current/t/07combined.t
branches/upstream/libparams-callbackrequest-perl/current/t/08apache.t
branches/upstream/libparams-callbackrequest-perl/current/t/09pod.t
Modified: branches/upstream/libparams-callbackrequest-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-callbackrequest-perl/current/Build.PL?rev=19769&op=diff
==============================================================================
--- branches/upstream/libparams-callbackrequest-perl/current/Build.PL (original)
+++ branches/upstream/libparams-callbackrequest-perl/current/Build.PL Fri May 9 13:14:54 2008
@@ -3,6 +3,13 @@
my $build = Module::Build->new(
module_name => 'Params::CallbackRequest',
license => 'perl',
+ create_makefile_pl => 'passthrough',
+ configure_requires => { 'Module::Build' => '0.2701' },
+ recommends => { 'Test::Pod' => '1.20' },
+ build_requires => {
+ 'Test::More' => '0.17',
+ 'Module::Build' => '0.2701',
+ },
requires => {
Params::Validate => '0.59',
Exception::Class => '1.10',
@@ -11,9 +18,5 @@
Class::ISA => 0,
perl => '5.6.0',
},
- build_requires => {
- Test::Simple => '0.17',
- },
- create_makefile_pl => 'passthrough',
);
$build->create_build_script;
Modified: branches/upstream/libparams-callbackrequest-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-callbackrequest-perl/current/Changes?rev=19769&op=diff
==============================================================================
--- branches/upstream/libparams-callbackrequest-perl/current/Changes (original)
+++ branches/upstream/libparams-callbackrequest-perl/current/Changes Fri May 9 13:14:54 2008
@@ -1,4 +1,9 @@
Revision history for Perl extension Params::CallbackRequest.
+
+1.18 2008-05-03T23:44:20
+ - Updated POD test to take advantage of Test::Pod 1.20 or later.
+ - Reformatted the code a bit.
+ - Added a link to the Subversion repository.
1.17 2007-03-27T16:21:34
- Updated copyright date.
@@ -11,6 +16,8 @@
- Fixed a bug detecting mod_perl2. Reported by Jimmy Li.
- Fixed a bug in the redirect() method under mod_perl2. Report and fix
from Jimmy Li.
+ - Added the "configure_requires" parameter to Build.PL and added
+ Test::Pod to the "recommends" parameter.
1.15 2006-05-26T21:28:55
- Added the 'requester' attribute to Params::Callback. This can be
Modified: branches/upstream/libparams-callbackrequest-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-callbackrequest-perl/current/META.yml?rev=19769&op=diff
==============================================================================
--- branches/upstream/libparams-callbackrequest-perl/current/META.yml (original)
+++ branches/upstream/libparams-callbackrequest-perl/current/META.yml Fri May 9 13:14:54 2008
@@ -1,12 +1,14 @@
---
name: Params-CallbackRequest
-version: 1.17
+version: 1.18
author:
- 'David Wheeler <david at kineticode.com>'
abstract: Functional and object-oriented callback architecture
license: perl
resources:
license: http://dev.perl.org/licenses/
+configure_requires:
+ Module::Build: 0.2701
requires:
Attribute::Handlers: 0.77
Class::ISA: 0
@@ -15,18 +17,21 @@
Test::Simple: 0.17
perl: 5.6.0
build_requires:
- Test::Simple: 0.17
+ Module::Build: 0.2701
+ Test::More: 0.17
+recommends:
+ Test::Pod: 1.20
provides:
Params::Callback:
file: lib/Params/Callback.pm
- version: 1.17
+ version: 1.18
Params::CallbackRequest:
file: lib/Params/CallbackRequest.pm
- version: 1.17
+ version: 1.18
Params::CallbackRequest::Exceptions:
file: lib/Params/CallbackRequest/Exceptions.pm
- version: 1.17
-generated_by: Module::Build version 0.2807
+ version: 1.18
+generated_by: Module::Build version 0.280801
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
version: 1.2
Modified: branches/upstream/libparams-callbackrequest-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-callbackrequest-perl/current/Makefile.PL?rev=19769&op=diff
==============================================================================
--- branches/upstream/libparams-callbackrequest-perl/current/Makefile.PL (original)
+++ branches/upstream/libparams-callbackrequest-perl/current/Makefile.PL Fri May 9 13:14:54 2008
@@ -1,4 +1,5 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.03
+# Note: this file was auto-generated by Module::Build::Compat version 0.2808_01
+require 5.6.0;
unless (eval "use Module::Build::Compat 0.02; 1" ) {
print "This module requires Module::Build to install itself.\n";
Modified: branches/upstream/libparams-callbackrequest-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-callbackrequest-perl/current/README?rev=19769&op=diff
==============================================================================
--- branches/upstream/libparams-callbackrequest-perl/current/README (original)
+++ branches/upstream/libparams-callbackrequest-perl/current/README Fri May 9 13:14:54 2008
@@ -1,4 +1,4 @@
-Params/CallbackRequest version 1.16
+Params/CallbackRequest version 1.18
===================================
Params::CallbackRequest provides functional and object-oriented callbacks to
@@ -51,7 +51,7 @@
COPYRIGHT AND LICENCE
-Copyright (C) 2003-2007 David Wheeler
+Copyright 2003-2008 David Wheeler. Some Rights Reserved.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libparams-callbackrequest-perl/current/lib/Params/Callback.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-callbackrequest-perl/current/lib/Params/Callback.pm?rev=19769&op=diff
==============================================================================
--- branches/upstream/libparams-callbackrequest-perl/current/lib/Params/Callback.pm (original)
+++ branches/upstream/libparams-callbackrequest-perl/current/lib/Params/Callback.pm Fri May 9 13:14:54 2008
@@ -5,7 +5,7 @@
use Params::CallbackRequest::Exceptions (abbr => [qw(throw_bad_params)]);
use vars qw($VERSION);
-$VERSION = '1.17';
+$VERSION = '1.18';
use constant DEFAULT_PRIORITY => 5;
use constant REDIRECT => 302;
@@ -36,15 +36,17 @@
}
# Build read-only accessors.
- for my $attr (qw( cb_request
- params
- apache_req
- priority
- cb_key
- pkg_key
- requester
- trigger_key
- value )) {
+ for my $attr (qw(
+ cb_request
+ params
+ apache_req
+ priority
+ cb_key
+ pkg_key
+ requester
+ trigger_key
+ value
+ )) {
no strict 'refs';
*{$attr} = sub { $_[0]->{$attr} };
}
@@ -116,16 +118,17 @@
my $class = caller;
return unless UNIVERSAL::isa($class, __PACKAGE__)
and $class ne __PACKAGE__;
- my $spec = { default_priority =>
- { type => Params::Validate::SCALAR,
- optional => 1,
- callbacks => $is_num
- },
- class_key =>
- { type => Params::Validate::SCALAR,
- optional => 1
- },
- };
+ my $spec = {
+ default_priority => {
+ type => Params::Validate::SCALAR,
+ optional => 1,
+ callbacks => $is_num
+ },
+ class_key => {
+ type => Params::Validate::SCALAR,
+ optional => 1
+ },
+ };
my %p = Params::Validate::validate(@_, $spec);
@@ -160,12 +163,13 @@
# Validate the arguments. At this point, there's only one allowed,
# priority. This is to set a priority for the callback method that
# overrides that set for the class.
- my $spec = { priority =>
- { type => Params::Validate::SCALAR,
- optional => 1,
- callbacks => $is_num
- },
- };
+ my $spec = {
+ priority => {
+ type => Params::Validate::SCALAR,
+ optional => 1,
+ callbacks => $is_num
+ },
+ };
my %p = Params::Validate::validate(@$data, $spec);
# Get the priority.
my $priority = exists $p{priority} ? $p{priority} :
@@ -320,9 +324,9 @@
# Process the class keys in the order they're given, or just do all of
# them if $ckeys eq 'ALL' or $ckeys->[0] eq '_ALL_' (checked by
# Params::CallbackRequest).
- foreach my $ckey (ref $ckeys && $ckeys->[0] ne '_ALL_'
- ? @$ckeys
- : keys %classes) {
+ foreach my $ckey (
+ ref $ckeys && $ckeys->[0] ne '_ALL_' ? @$ckeys : keys %classes
+ ) {
my $class = $classes{$ckey} or
die "Class with class key '$ckey' not loaded. Did you forget use"
. " it or to call register_subclass()?";
@@ -1045,7 +1049,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright 2003-2007 David Wheeler
+Copyright 2003-2008 David Wheeler. Some Rights Reserved.
This library is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
Modified: branches/upstream/libparams-callbackrequest-perl/current/lib/Params/CallbackRequest.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-callbackrequest-perl/current/lib/Params/CallbackRequest.pm?rev=19769&op=diff
==============================================================================
--- branches/upstream/libparams-callbackrequest-perl/current/lib/Params/CallbackRequest.pm (original)
+++ branches/upstream/libparams-callbackrequest-perl/current/lib/Params/CallbackRequest.pm Fri May 9 13:14:54 2008
@@ -7,7 +7,7 @@
throw_cb_exec)]);
use vars qw($VERSION);
-$VERSION = '1.17';
+$VERSION = '1.18';
BEGIN {
for my $attr (qw( default_priority
@@ -44,54 +44,56 @@
};
# Set up the valid parameters to new().
-my %valid_params =
- ( default_priority =>
- { type => Params::Validate::SCALAR,
- callbacks => { 'valid priority' => sub { $_[0] =~ /^\d$/ } },
- default => 5,
+my %valid_params = (
+ default_priority => {
+ type => Params::Validate::SCALAR,
+ callbacks => {
+ 'valid priority' => sub { $_[0] =~ /^\d$/ }
+ },
+ default => 5,
},
- default_pkg_key =>
- { type => Params::Validate::SCALAR,
- default => 'DEFAULT',
+ default_pkg_key => {
+ type => Params::Validate::SCALAR,
+ default => 'DEFAULT',
},
- callbacks =>
- { type => Params::Validate::ARRAYREF,
- optional => 1,
+ callbacks => {
+ type => Params::Validate::ARRAYREF,
+ optional => 1,
},
- pre_callbacks =>
- { type => Params::Validate::ARRAYREF,
- optional => 1,
+ pre_callbacks => {
+ type => Params::Validate::ARRAYREF,
+ optional => 1,
},
- post_callbacks =>
- { type => Params::Validate::ARRAYREF,
- optional => 1,
+ post_callbacks => {
+ type => Params::Validate::ARRAYREF,
+ optional => 1,
},
- cb_classes =>
- { type => Params::Validate::ARRAYREF | Params::Validate::SCALAR,
- callbacks => { 'valid cb_classes' => $valid_cb_classes },
- optional => 1,
+ cb_classes => {
+ type => Params::Validate::ARRAYREF | Params::Validate::SCALAR,
+ callbacks => { 'valid cb_classes' => $valid_cb_classes },
+ optional => 1,
},
- ignore_nulls =>
- { type => Params::Validate::BOOLEAN,
- default => 0,
+ ignore_nulls => {
+ type => Params::Validate::BOOLEAN,
+ default => 0,
},
- exception_handler =>
- { type => Params::Validate::CODEREF,
- default => $exception_handler
+ exception_handler => {
+ type => Params::Validate::CODEREF,
+ default => $exception_handler
},
- leave_notes =>
- { type => Params::Validate::BOOLEAN,
- default => 0,
+ leave_notes => {
+ type => Params::Validate::BOOLEAN,
+ default => 0,
},
- );
+);
BEGIN {
# Load up any callback class definitions.
@@ -1008,9 +1010,14 @@
for planting this great idea! This implementation is however completely
independent of previous implementations.
-=head1 BUGS
-
-Please send bug reports to <bug-params-callbackrequest at rt.cpan.org>.
+=head1 SUPPORT
+
+This module is stored in an open repository at the following address:
+
+L<https://svn.kineticode.com/Params-CallbackRequest/trunk/>
+
+Patches against SVN::Notify are welcome. Please send bug reports to
+<bug-params-callbackrequest at rt.cpan.org>.
=head1 SEE ALSO
@@ -1029,7 +1036,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright 2003-2007 David Wheeler
+Copyright 2003-2008 David Wheeler. Some Rights Reserved.
This library is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
Modified: branches/upstream/libparams-callbackrequest-perl/current/lib/Params/CallbackRequest/Exceptions.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-callbackrequest-perl/current/lib/Params/CallbackRequest/Exceptions.pm?rev=19769&op=diff
==============================================================================
--- branches/upstream/libparams-callbackrequest-perl/current/lib/Params/CallbackRequest/Exceptions.pm (original)
+++ branches/upstream/libparams-callbackrequest-perl/current/lib/Params/CallbackRequest/Exceptions.pm Fri May 9 13:14:54 2008
@@ -2,56 +2,60 @@
use strict;
use vars qw($VERSION);
-$VERSION = '1.17';
-
-use Exception::Class ( 'Params::Callback::Exception' =>
- { description => 'Params::Callback exception',
- alias => 'throw_cb' },
-
- 'Params::Callback::Exception::InvalidKey' =>
- { isa => 'Params::Callback::Exception',
- description => 'No callback found for callback key',
- alias => 'throw_bad_key',
- fields => [ qw(callback_key) ] },
-
- 'Params::Callback::Exception::Execution' =>
- { isa => 'Params::Callback::Exception',
- description => 'Error thrown by callback',
- alias => 'throw_cb_exec',
- fields => [ qw(callback_key callback_error) ] },
-
- 'Params::Callback::Exception::Params' =>
- { isa => 'Params::Callback::Exception',
- description => 'Invalid parameter',
- alias => 'throw_bad_params',
- fields => [ qw(param) ] },
-
- 'Params::Callback::Exception::Abort' =>
- { isa => 'Params::Callback::Exception',
- fields => [qw(aborted_value)],
- alias => 'throw_abort',
- description => 'a callback called abort()' },
- );
+$VERSION = '1.18';
+
+use Exception::Class (
+ 'Params::Callback::Exception' => {
+ description => 'Params::Callback exception',
+ alias => 'throw_cb'
+ },
+
+ 'Params::Callback::Exception::InvalidKey' => {
+ isa => 'Params::Callback::Exception',
+ description => 'No callback found for callback key',
+ alias => 'throw_bad_key',
+ fields => [qw(callback_key)]
+ },
+
+ 'Params::Callback::Exception::Execution' => {
+ isa => 'Params::Callback::Exception',
+ description => 'Error thrown by callback',
+ alias => 'throw_cb_exec',
+ fields => [qw(callback_key callback_error)]
+ },
+
+ 'Params::Callback::Exception::Params' => {
+ isa => 'Params::Callback::Exception',
+ description => 'Invalid parameter',
+ alias => 'throw_bad_params',
+ fields => [qw(param)]
+ },
+
+ 'Params::Callback::Exception::Abort' => {
+ isa => 'Params::Callback::Exception',
+ fields => [qw(aborted_value)],
+ alias => 'throw_abort',
+ description => 'a callback called abort()'
+ },
+);
sub import {
my ($class, %args) = @_;
my $caller = caller;
if ($args{abbr}) {
- foreach my $name (@{$args{abbr}}) {
- no strict 'refs';
- die "Unknown exception abbreviation '$name'"
- unless defined &{$name};
- *{"${caller}::$name"} = \&{$name};
- }
+ foreach my $name (@{$args{abbr}}) {
+ no strict 'refs';
+ die "Unknown exception abbreviation '$name'"
+ unless defined &{$name};
+ *{"${caller}::$name"} = \&{$name};
+ }
}
no strict 'refs';
*{"${caller}::isa_cb_exception"} = \&isa_cb_exception;
*{"${caller}::rethrow_exception"} = \&rethrow_exception;
}
-
-
sub isa_cb_exception ($;$) {
my ($err, $name) = @_;
@@ -224,7 +228,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright 2003-2007 David Wheeler
+Copyright 2003-2008 David Wheeler. Some Rights Reserved.
This library is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
Modified: branches/upstream/libparams-callbackrequest-perl/current/t/01basic.t
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-callbackrequest-perl/current/t/01basic.t?rev=19769&op=diff
==============================================================================
--- branches/upstream/libparams-callbackrequest-perl/current/t/01basic.t (original)
+++ branches/upstream/libparams-callbackrequest-perl/current/t/01basic.t Fri May 9 13:14:54 2008
@@ -1,6 +1,6 @@
#!perl -w
-# $Id: 01basic.t 682 2004-09-28 05:59:10Z theory $
+# $Id: 01basic.t 682 2004-09-28 05:59:10Z david $
use strict;
use Test::More tests => 73;
Modified: branches/upstream/libparams-callbackrequest-perl/current/t/02priority.t
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-callbackrequest-perl/current/t/02priority.t?rev=19769&op=diff
==============================================================================
--- branches/upstream/libparams-callbackrequest-perl/current/t/02priority.t (original)
+++ branches/upstream/libparams-callbackrequest-perl/current/t/02priority.t Fri May 9 13:14:54 2008
@@ -1,6 +1,6 @@
#!perl -w
-# $Id: 02priority.t 682 2004-09-28 05:59:10Z theory $
+# $Id: 02priority.t 682 2004-09-28 05:59:10Z david $
use strict;
use Test::More tests => 30;
Modified: branches/upstream/libparams-callbackrequest-perl/current/t/03keys.t
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-callbackrequest-perl/current/t/03keys.t?rev=19769&op=diff
==============================================================================
--- branches/upstream/libparams-callbackrequest-perl/current/t/03keys.t (original)
+++ branches/upstream/libparams-callbackrequest-perl/current/t/03keys.t Fri May 9 13:14:54 2008
@@ -1,6 +1,6 @@
#!perl -w
-# $Id: 03keys.t 682 2004-09-28 05:59:10Z theory $
+# $Id: 03keys.t 682 2004-09-28 05:59:10Z david $
use strict;
use Test::More tests => 15;
Modified: branches/upstream/libparams-callbackrequest-perl/current/t/04errors.t
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-callbackrequest-perl/current/t/04errors.t?rev=19769&op=diff
==============================================================================
--- branches/upstream/libparams-callbackrequest-perl/current/t/04errors.t (original)
+++ branches/upstream/libparams-callbackrequest-perl/current/t/04errors.t Fri May 9 13:14:54 2008
@@ -1,6 +1,6 @@
#!perl -w
-# $Id: 04errors.t 682 2004-09-28 05:59:10Z theory $
+# $Id: 04errors.t 682 2004-09-28 05:59:10Z david $
use strict;
use Test::More tests => 51;
Modified: branches/upstream/libparams-callbackrequest-perl/current/t/05object.t
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-callbackrequest-perl/current/t/05object.t?rev=19769&op=diff
==============================================================================
--- branches/upstream/libparams-callbackrequest-perl/current/t/05object.t (original)
+++ branches/upstream/libparams-callbackrequest-perl/current/t/05object.t Fri May 9 13:14:54 2008
@@ -1,6 +1,6 @@
#!perl -w
-# $Id: 05object.t 682 2004-09-28 05:59:10Z theory $
+# $Id: 05object.t 682 2004-09-28 05:59:10Z david $
use strict;
use Test::More;
Modified: branches/upstream/libparams-callbackrequest-perl/current/t/06object_request.t
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-callbackrequest-perl/current/t/06object_request.t?rev=19769&op=diff
==============================================================================
--- branches/upstream/libparams-callbackrequest-perl/current/t/06object_request.t (original)
+++ branches/upstream/libparams-callbackrequest-perl/current/t/06object_request.t Fri May 9 13:14:54 2008
@@ -1,6 +1,6 @@
#!perl -w
-# $Id: 06object_request.t 2862 2006-05-26 21:28:17Z theory $
+# $Id: 06object_request.t 2862 2006-05-26 21:28:17Z david $
use strict;
use Test::More;
Modified: branches/upstream/libparams-callbackrequest-perl/current/t/07combined.t
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-callbackrequest-perl/current/t/07combined.t?rev=19769&op=diff
==============================================================================
--- branches/upstream/libparams-callbackrequest-perl/current/t/07combined.t (original)
+++ branches/upstream/libparams-callbackrequest-perl/current/t/07combined.t Fri May 9 13:14:54 2008
@@ -1,6 +1,6 @@
#!perl -w
-# $Id: 07combined.t 682 2004-09-28 05:59:10Z theory $
+# $Id: 07combined.t 682 2004-09-28 05:59:10Z david $
use strict;
use Test::More;
Modified: branches/upstream/libparams-callbackrequest-perl/current/t/08apache.t
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-callbackrequest-perl/current/t/08apache.t?rev=19769&op=diff
==============================================================================
--- branches/upstream/libparams-callbackrequest-perl/current/t/08apache.t (original)
+++ branches/upstream/libparams-callbackrequest-perl/current/t/08apache.t Fri May 9 13:14:54 2008
@@ -1,6 +1,6 @@
#!perl -w
-# $Id: 08apache.t 3047 2006-07-18 18:14:13Z theory $
+# $Id: 08apache.t 3047 2006-07-18 18:14:13Z david $
use strict;
use Test::More;
Modified: branches/upstream/libparams-callbackrequest-perl/current/t/09pod.t
URL: http://svn.debian.org/wsvn/branches/upstream/libparams-callbackrequest-perl/current/t/09pod.t?rev=19769&op=diff
==============================================================================
--- branches/upstream/libparams-callbackrequest-perl/current/t/09pod.t (original)
+++ branches/upstream/libparams-callbackrequest-perl/current/t/09pod.t Fri May 9 13:14:54 2008
@@ -1,23 +1,9 @@
#!perl -w
-# $Id: 09pod.t 682 2004-09-28 05:59:10Z theory $
+# $Id: 09pod.t 3737 2008-05-03 23:32:15Z david $
+use strict;
use Test::More;
-use File::Spec;
-use File::Find;
-use strict;
-
-eval "use Test::Pod 0.95";
-
-if ($@) {
- plan skip_all => "Test::Pod v0.95 required for testing POD";
-} else {
- Test::Pod->import;
- my @files;
- my $blib = File::Spec->catfile(qw(blib lib));
- find( sub {push @files, $File::Find::name if /\.p(l|m|od)$/}, $blib);
- plan tests => scalar @files;
- foreach my $file (@files) {
- pod_file_ok($file);
- }
-}
+eval "use Test::Pod 1.20";
+plan skip_all => "Test::Pod 1.20 required for testing POD" if $@;
+all_pod_files_ok(all_pod_files('bin', 'lib'));
More information about the Pkg-perl-cvs-commits
mailing list