r48812 - in /branches/upstream/libany-moose-perl/current: ./ lib/Any/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Wed Dec 16 00:53:37 UTC 2009
Author: jawnsy-guest
Date: Wed Dec 16 00:53:30 2009
New Revision: 48812
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=48812
Log:
[svn-upgrade] Integrating new upstream version, libany-moose-perl (0.11)
Added:
branches/upstream/libany-moose-perl/current/t/012-use_moose_util.t
branches/upstream/libany-moose-perl/current/t/012-use_mouse_util.t
branches/upstream/libany-moose-perl/current/t/101-localize-errvar.t
branches/upstream/libany-moose-perl/current/t/release-pod-coverage.t
branches/upstream/libany-moose-perl/current/t/release-pod-syntax.t
Modified:
branches/upstream/libany-moose-perl/current/Changes
branches/upstream/libany-moose-perl/current/MANIFEST
branches/upstream/libany-moose-perl/current/META.yml
branches/upstream/libany-moose-perl/current/Makefile.PL
branches/upstream/libany-moose-perl/current/README
branches/upstream/libany-moose-perl/current/dist.ini
branches/upstream/libany-moose-perl/current/lib/Any/Moose.pm
branches/upstream/libany-moose-perl/current/t/001-basic-moose.t
branches/upstream/libany-moose-perl/current/t/002-other-modules-mouse.t
branches/upstream/libany-moose-perl/current/t/003-is_moose_loaded.t
branches/upstream/libany-moose-perl/current/t/005-is_class_loaded-mouse.t
branches/upstream/libany-moose-perl/current/t/010-use_mouse_roles.t
Modified: branches/upstream/libany-moose-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/Changes?rev=48812&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/Changes (original)
+++ branches/upstream/libany-moose-perl/current/Changes Wed Dec 16 00:53:30 2009
@@ -1,3 +1,11 @@
+0.11 Sun 19 Dec 2009
+ * Support "use Any::Moose '::Util::TypeConstraints'" (gfx)
+ * Support "no Any::Moose '::Util::TypeConstraints'" (gfx)
+ * $@ related fixes (gfx)
+ * Documentation and other minor improvements (gfx)
+ * Any::Moose should now work when you have Moose but not Mouse. Still need to
+ work out how to encode this in the installation system (Sartak)
+
0.10 Fri 19 Jun 2009
* Fix META.yml
Modified: branches/upstream/libany-moose-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/MANIFEST?rev=48812&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/MANIFEST (original)
+++ branches/upstream/libany-moose-perl/current/MANIFEST Wed Dec 16 00:53:30 2009
@@ -17,5 +17,10 @@
t/005-is_class_loaded-mouse.t
t/010-use_mouse_roles.t
t/011-use_moose_roles.t
+t/012-use_moose_util.t
+t/012-use_mouse_util.t
t/020-strict.t
-t/100-canonicalize-fragments.t
+t/100-canonicalize-fragments.t
+t/101-localize-errvar.t
+t/release-pod-coverage.t
+t/release-pod-syntax.t
Modified: branches/upstream/libany-moose-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/META.yml?rev=48812&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/META.yml (original)
+++ branches/upstream/libany-moose-perl/current/META.yml Wed Dec 16 00:53:30 2009
@@ -5,12 +5,14 @@
- 'Florian Ragwitz <rafl at debian.org>'
- 'Stevan Little <stevan at iinteractive.com>'
- 'Tokuhiro Matsuno <tokuhirom at gmail.com>'
-generated_by: 'Dist::Zilla::Plugin::MetaYAML version 1.091480'
+ - 'Goro Fuji <gfuji at cpan.org>'
+generated_by: 'Dist::Zilla version 1.093400'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
name: Any-Moose
requires:
- Mouse: 0.21
-version: 0.10
+ Mouse: 0.40
+ perl: 5.006_002
+version: 0.11
Modified: branches/upstream/libany-moose-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/Makefile.PL?rev=48812&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/Makefile.PL (original)
+++ branches/upstream/libany-moose-perl/current/Makefile.PL Wed Dec 16 00:53:30 2009
@@ -1,18 +1,22 @@
use strict;
use warnings;
+
+ BEGIN { require 5.006_002; }
use ExtUtils::MakeMaker;
WriteMakefile(
DISTNAME => 'Any-Moose',
NAME => 'Any::Moose',
- AUTHOR => 'Shawn\ M\ Moore\ \<sartak\@bestpractical\.com\>\,\ Florian\ Ragwitz\ \<rafl\@debian\.org\>\,\ Stevan\ Little\ \<stevan\@iinteractive\.com\>\,\ Tokuhiro\ Matsuno\ \<tokuhirom\@gmail\.com\>',
- ABSTRACT => 'use\ Moose\ or\ Mouse\ modules',
- VERSION => '0.10',
+ AUTHOR => "Shawn\ M\ Moore\ \<sartak\@bestpractical\.com\>\,\ Florian\ Ragwitz\ \<rafl\@debian\.org\>\,\ Stevan\ Little\ \<stevan\@iinteractive\.com\>\,\ Tokuhiro\ Matsuno\ \<tokuhirom\@gmail\.com\>\,\ Goro\ Fuji\ \<gfuji\@cpan\.org\>",
+ ABSTRACT => "use\ Moose\ or\ Mouse\ modules",
+ VERSION => '0.11',
EXE_FILES => [ qw() ],
- (eval { ExtUtils::MakeMaker->VERSION(6.21) } ? (LICENSE => 'perl') : ()),
+ (eval { ExtUtils::MakeMaker->VERSION(6.31) } ? (LICENSE => 'perl') : ()),
PREREQ_PM => {
- "Mouse" => '0.21',
+ "Mouse" => '0.40',
},
+ test => {TESTS => 't/*.t'}
);
+
Modified: branches/upstream/libany-moose-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/README?rev=48812&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/README (original)
+++ branches/upstream/libany-moose-perl/current/README Wed Dec 16 00:53:30 2009
@@ -1,7 +1,7 @@
This archive contains the distribution Any-Moose, version
-0.10:
+0.11:
use Moose or Mouse modules
Modified: branches/upstream/libany-moose-perl/current/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/dist.ini?rev=48812&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/dist.ini (original)
+++ branches/upstream/libany-moose-perl/current/dist.ini Wed Dec 16 00:53:30 2009
@@ -1,9 +1,10 @@
name = Any-Moose
-version = 0.10
+version = 0.11
author = Shawn M Moore <sartak at bestpractical.com>
author = Florian Ragwitz <rafl at debian.org>
author = Stevan Little <stevan at iinteractive.com>
author = Tokuhiro Matsuno <tokuhirom at gmail.com>
+author = Goro Fuji <gfuji at cpan.org>
license = Perl_5
copyright_holder = Best Practical Solutions
@@ -14,5 +15,5 @@
[PodWeaver]
[Prereq]
-Mouse = 0.21
-
+Mouse = 0.40
+perl = 5.006_002
Modified: branches/upstream/libany-moose-perl/current/lib/Any/Moose.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/lib/Any/Moose.pm?rev=48812&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/lib/Any/Moose.pm (original)
+++ branches/upstream/libany-moose-perl/current/lib/Any/Moose.pm Wed Dec 16 00:53:30 2009
@@ -1,10 +1,12 @@
package Any::Moose;
-our $VERSION = '0.10';
-
+our $VERSION = '0.11';
# ABSTRACT: use Moose or Mouse modules
+use 5.006_002;
use strict;
use warnings;
+
+use Carp ();
our $PREFERRED = $ENV{'ANY_MOOSE'};
@@ -12,12 +14,9 @@
my $self = shift;
my $pkg = caller;
- # Any::Moose gives you strict and warnings (but only the first time, in case
- # you do something like: use Any::Moose; no strict 'refs')
- if (!defined(_backer_of($pkg))) {
- strict->import;
- warnings->import;
- }
+ # Any::Moose gives you strict and warnings
+ strict->import;
+ warnings->import;
# first options are for Mo*se
unshift @_, 'Moose' if !@_ || ref($_[0]);
@@ -40,22 +39,36 @@
}
sub unimport {
- my $self = shift;
- my $pkg = caller;
-
- my $backer = _backer_of($pkg);
-
- eval "package $pkg;\n"
- . '$backer->unimport(@_);';
+ my $sel = shift;
+ my $pkg = caller;
+ my $module;
+
+ if(@_){
+ $module = any_moose(shift, $pkg);
+ }
+ else {
+ $module = _backer_of($pkg);
+ }
+ my $e = do{
+ local $@;
+ eval "package $pkg;\n"
+ . '$module->unimport();';
+ $@;
+ };
+ Carp::croak("Cannot unimport Any::Moose: $e") if $e;
+ return;
}
sub _backer_of {
my $pkg = shift;
- return 'Mouse' if $INC{'Mouse.pm'}
- && Mouse::Meta::Class->_metaclass_cache($pkg);
- return 'Mouse::Role' if $INC{'Mouse/Role.pm'}
- && Mouse::Meta::Role->_metaclass_cache($pkg);
+ if(exists $INC{'Mouse.pm'}){
+ my $meta = Mouse::Util::get_metaclass_by_name($pkg);
+ if ($meta) {
+ return 'Mouse::Role' if $meta->isa('Mouse::Meta::Role');
+ return 'Mouse' if $meta->isa('Mouse::Meta::Class');
+ }
+ }
if (_is_moose_loaded()) {
my $meta = Class::MOP::get_metaclass_by_name($pkg);
@@ -97,8 +110,14 @@
require $file;
- eval "package $options->{package};\n"
- . '$module->import(@{ $options->{imports} });';
+ my $e = do {
+ local $@;
+ eval "package $options->{package};\n"
+ . '$module->import(@{ $options->{imports} });';
+ $@;
+ };
+ Carp::croak("Cannot import Any::Moose: $e") if $e;
+ return;
}
sub any_moose {
@@ -107,28 +126,34 @@
# Mouse gets first dibs because it doesn't introspect existing classes
- if ((_backer_of($package)||'') =~ /^Mouse/) {
+ my $backer = _backer_of($package) || '';
+
+ if ($backer =~ /^Mouse/) {
$fragment =~ s/^Moose/Mouse/;
return $fragment;
}
- return $fragment if (_backer_of($package)||'') =~ /^Moose/;
-
- # If we're loading up the backing class...
- if ($fragment eq 'Moose' || $fragment eq 'Moose::Role') {
- if (!$PREFERRED) {
- $PREFERRED = _is_moose_loaded() ? 'Moose' : 'Mouse';
-
- (my $file = $PREFERRED . '.pm') =~ s{::}{/}g;
- require $file;
- }
-
- $fragment =~ s/^Moose/Mouse/ if mouse_is_preferred();
- return $fragment;
- }
-
- require Carp;
- Carp::croak("Neither Moose nor Mouse backs the '$package' package.");
+ return $fragment if $backer =~ /^Moose/;
+
+ if (!$PREFERRED) {
+ local $@;
+ if (_is_moose_loaded()) {
+ $PREFERRED = 'Moose';
+ }
+ elsif (eval { require Mouse }) {
+ $PREFERRED = 'Mouse';
+ }
+ elsif (eval { require Moose }) {
+ $PREFERRED = 'Moose';
+ }
+ else {
+ require Carp;
+ Carp::confess("Unable to locate Mouse or Moose in INC");
+ }
+ }
+
+ $fragment =~ s/^Moose/Mouse/ if mouse_is_preferred();
+ return $fragment;
}
sub load_class {
@@ -146,7 +171,7 @@
sub moose_is_preferred { $PREFERRED eq 'Moose' }
sub mouse_is_preferred { $PREFERRED eq 'Mouse' }
-sub _is_moose_loaded { !!$INC{'Class/MOP.pm'} }
+sub _is_moose_loaded { exists $INC{'Class/MOP.pm'} }
sub is_moose_loaded {
Carp::carp("Any::Moose::is_moose_loaded is deprecated. Please use Any::Moose::moose_is_preferred instead");
@@ -156,7 +181,7 @@
sub _canonicalize_fragment {
my $fragment = shift;
- return 'Moose' if !defined($fragment);
+ return 'Moose' if !$fragment;
# any_moose("X::Types") -> any_moose("MooseX::Types")
$fragment =~ s/^X::/MooseX::/;
@@ -170,23 +195,21 @@
# any_moose("Util") -> any_moose("Moose::Util")
$fragment =~ s/^(?!Moose)/Moose::/;
- # any_moose("Moose::") (via any_moose("")) -> any_moose("Moose")
- $fragment =~ s/^Moose::$/Moose/;
-
return $fragment;
}
1;
-__END__
+=pod
+
=head1 NAME
Any::Moose - use Moose or Mouse modules
=head1 VERSION
-version 0.10
+version 0.11
=head1 SYNOPSIS
@@ -196,6 +219,9 @@
# uses Moose if it's loaded, Mouse otherwise
use Any::Moose;
+
+ # cleans the namespace up
+ no Any::Moose;
=head2 OTHER MODULES
@@ -230,12 +256,19 @@
Actual documentation is forthcoming, once we solidify all the bits of the API.
The examples above are very likely to continue working.
+=head1 SEE ALSO
+
+L<Moose>
+
+L<Mouse>
+
=head1 AUTHORS
Shawn M Moore <sartak at bestpractical.com>
Florian Ragwitz <rafl at debian.org>
Stevan Little <stevan at iinteractive.com>
Tokuhiro Matsuno <tokuhirom at gmail.com>
+ Goro Fuji <gfuji at cpan.org>
=head1 COPYRIGHT AND LICENSE
@@ -244,3 +277,8 @@
This is free software; you can redistribute it and/or modify it under
the same terms as perl itself.
+=cut
+
+
+__END__
+
Modified: branches/upstream/libany-moose-perl/current/t/001-basic-moose.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/t/001-basic-moose.t?rev=48812&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/001-basic-moose.t (original)
+++ branches/upstream/libany-moose-perl/current/t/001-basic-moose.t Wed Dec 16 00:53:30 2009
@@ -1,9 +1,15 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 9;
+use Test::More;
BEGIN { delete $ENV{ANY_MOOSE} }
+
+BEGIN {
+ eval 'require Mouse';
+ plan skip_all => 'Mouse not available' if $@;
+ plan tests => 9;
+}
do {
package Moused::Any::Moose;
Modified: branches/upstream/libany-moose-perl/current/t/002-other-modules-mouse.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/t/002-other-modules-mouse.t?rev=48812&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/002-other-modules-mouse.t (original)
+++ branches/upstream/libany-moose-perl/current/t/002-other-modules-mouse.t Wed Dec 16 00:53:30 2009
@@ -1,9 +1,15 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 2;
+use Test::More;
BEGIN { delete $ENV{ANY_MOOSE} }
+
+BEGIN {
+ eval 'require Mouse';
+ plan skip_all => 'Mouse not available' if $@;
+ plan tests => 2;
+}
do {
package Moused::Any::Moose;
@@ -11,7 +17,7 @@
use Any::Moose '::Util::TypeConstraints' => ['subtype', 'as'];
subtype 'XYZ' => as 'Int';
- ::ok(Mouse::Util::TypeConstraints::optimized_constraints()->{XYZ}, 'subtype used Mouse');
+ ::ok(Mouse::Util::TypeConstraints::find_type_constraint('XYZ'), 'subtype used Mouse');
};
SKIP: {
@@ -26,8 +32,7 @@
use Any::Moose '::Util::TypeConstraints' => ['subtype', 'as'];
subtype 'ABC' => as 'Int';
- #::ok(Mouse::Util::TypeConstraints::find_type_constraint('ABC'), 'subtype used Mouse');
- ::ok(Mouse::Util::TypeConstraints::optimized_constraints()->{ABC}, 'subtype used Mouse');
+ ::ok(Mouse::Util::TypeConstraints::find_type_constraint('ABC'), 'subtype used Mouse');
};
};
Modified: branches/upstream/libany-moose-perl/current/t/003-is_moose_loaded.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/t/003-is_moose_loaded.t?rev=48812&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/003-is_moose_loaded.t (original)
+++ branches/upstream/libany-moose-perl/current/t/003-is_moose_loaded.t Wed Dec 16 00:53:30 2009
@@ -1,9 +1,15 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 3;
+use Test::More;
BEGIN { delete $ENV{ANY_MOOSE} }
+
+BEGIN {
+ eval 'require Mouse';
+ plan skip_all => 'Mouse not available' if $@;
+ plan tests => 3;
+}
package Test;
BEGIN {
Modified: branches/upstream/libany-moose-perl/current/t/005-is_class_loaded-mouse.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/t/005-is_class_loaded-mouse.t?rev=48812&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/005-is_class_loaded-mouse.t (original)
+++ branches/upstream/libany-moose-perl/current/t/005-is_class_loaded-mouse.t Wed Dec 16 00:53:30 2009
@@ -5,7 +5,11 @@
BEGIN { delete $ENV{ANY_MOOSE} }
-plan tests => 2;
+BEGIN {
+ eval 'require Mouse';
+ plan skip_all => 'Mouse not available' if $@;
+ plan tests => 2;
+}
{
package MyFoo;
Modified: branches/upstream/libany-moose-perl/current/t/010-use_mouse_roles.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/t/010-use_mouse_roles.t?rev=48812&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/010-use_mouse_roles.t (original)
+++ branches/upstream/libany-moose-perl/current/t/010-use_mouse_roles.t Wed Dec 16 00:53:30 2009
@@ -1,9 +1,15 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 1;
+use Test::More;
BEGIN { delete $ENV{ANY_MOOSE} }
+
+BEGIN {
+ eval 'require Mouse';
+ plan skip_all => 'Mouse not available' if $@;
+ plan tests => 1;
+}
{
package My::Role;
@@ -11,3 +17,4 @@
}
isa_ok(My::Role->meta, 'Mouse::Meta::Role');
+
Added: branches/upstream/libany-moose-perl/current/t/012-use_moose_util.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/t/012-use_moose_util.t?rev=48812&op=file
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/012-use_moose_util.t (added)
+++ branches/upstream/libany-moose-perl/current/t/012-use_moose_util.t Wed Dec 16 00:53:30 2009
@@ -1,0 +1,23 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN { delete $ENV{ANY_MOOSE} }
+
+BEGIN {
+ eval 'require Moose';
+ plan skip_all => 'Moose not available' if $@;
+ plan tests => 2;
+}
+
+{
+ package My::Package;
+ use Any::Moose '::Util::TypeConstraints' => [qw(type)];
+
+ ::ok defined(&type);
+
+ no Any::Moose '::Util::TypeConstraints';
+}
+
+ok !My::Package->can('type');
Added: branches/upstream/libany-moose-perl/current/t/012-use_mouse_util.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/t/012-use_mouse_util.t?rev=48812&op=file
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/012-use_mouse_util.t (added)
+++ branches/upstream/libany-moose-perl/current/t/012-use_mouse_util.t Wed Dec 16 00:53:30 2009
@@ -1,0 +1,23 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN { delete $ENV{ANY_MOOSE} }
+
+BEGIN {
+ eval 'require Mouse';
+ plan skip_all => 'Mouse not available' if $@;
+ plan tests => 2;
+}
+
+{
+ package My::Package;
+ use Any::Moose '::Util::TypeConstraints' => [qw(type)];
+
+ ::ok defined(&type);
+
+ no Any::Moose '::Util::TypeConstraints';
+}
+
+ok !My::Package->can('type');
Added: branches/upstream/libany-moose-perl/current/t/101-localize-errvar.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/t/101-localize-errvar.t?rev=48812&op=file
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/101-localize-errvar.t (added)
+++ branches/upstream/libany-moose-perl/current/t/101-localize-errvar.t Wed Dec 16 00:53:30 2009
@@ -1,0 +1,25 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 3;
+use Any::Moose();
+
+$@ = 'Foo';
+
+Any::Moose::any_moose();
+
+is $@, 'Foo', 'any_moose() does not clear $@';
+
+{
+ package X;
+ Any::Moose->import;
+}
+
+is $@, 'Foo', 'Any::Moose->import does not clear $@';
+
+{
+ package X;
+ Any::Moose->unimport;
+}
+
+is $@, 'Foo', 'Any::Moose->unimport does not clear $@';
Added: branches/upstream/libany-moose-perl/current/t/release-pod-coverage.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/t/release-pod-coverage.t?rev=48812&op=file
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/release-pod-coverage.t (added)
+++ branches/upstream/libany-moose-perl/current/t/release-pod-coverage.t Wed Dec 16 00:53:30 2009
@@ -1,0 +1,21 @@
+#!perl
+
+BEGIN {
+ unless ($ENV{RELEASE_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for release candidate testing');
+ }
+}
+
+
+use Test::More;
+
+eval "use Test::Pod::Coverage 1.08";
+plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD coverage"
+ if $@;
+
+eval "use Pod::Coverage::TrustPod";
+plan skip_all => "Pod::Coverage::TrustPod required for testing POD coverage"
+ if $@;
+
+all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' });
Added: branches/upstream/libany-moose-perl/current/t/release-pod-syntax.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/t/release-pod-syntax.t?rev=48812&op=file
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/release-pod-syntax.t (added)
+++ branches/upstream/libany-moose-perl/current/t/release-pod-syntax.t Wed Dec 16 00:53:30 2009
@@ -1,0 +1,15 @@
+#!perl
+
+BEGIN {
+ unless ($ENV{RELEASE_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for release candidate testing');
+ }
+}
+
+use Test::More;
+
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+
+all_pod_files_ok();
More information about the Pkg-perl-cvs-commits
mailing list