r75331 - in /branches/upstream/libany-moose-perl/current: ./ devel/ lib/Any/ t/
ghedo-guest at users.alioth.debian.org
ghedo-guest at users.alioth.debian.org
Fri Jun 10 08:52:54 UTC 2011
Author: ghedo-guest
Date: Fri Jun 10 08:52:46 2011
New Revision: 75331
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=75331
Log:
[svn-upgrade] new version libany-moose-perl (0.15)
Added:
branches/upstream/libany-moose-perl/current/devel/
branches/upstream/libany-moose-perl/current/devel/test-combos.pl
Modified:
branches/upstream/libany-moose-perl/current/Changes
branches/upstream/libany-moose-perl/current/LICENSE
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/000-version.t
branches/upstream/libany-moose-perl/current/t/001-basic-moose.t
branches/upstream/libany-moose-perl/current/t/001-basic-mouse.t
branches/upstream/libany-moose-perl/current/t/002-other-modules-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/004-x-modules-moose.t
branches/upstream/libany-moose-perl/current/t/004-x-modules-mouse.t
branches/upstream/libany-moose-perl/current/t/005-aliases-moose.t
branches/upstream/libany-moose-perl/current/t/005-aliases-mouse.t
branches/upstream/libany-moose-perl/current/t/010-use_mouse_roles.t
branches/upstream/libany-moose-perl/current/t/011-use_moose_roles.t
branches/upstream/libany-moose-perl/current/t/012-use_moose_util.t
branches/upstream/libany-moose-perl/current/t/012-use_mouse_util.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=75331&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/Changes (original)
+++ branches/upstream/libany-moose-perl/current/Changes Fri Jun 10 08:52:46 2011
@@ -1,3 +1,12 @@
+0.15 2011-06-07
+ * Standardize the tests' Mouse/Moose loading eval/skip code
+ (Sartak, reported by Daniel Macks)
+ - fixes [rt.cpan.org #68657]
+
+0.14 2011-04-29
+ * Skip t/004-x-modules-mouse.t if you don't have MouseX::Types 0.03 since
+ older versions do not work with modern Mouse (Sartak, reported by ewilhelm)
+
0.13 Wed 19 May 2010
* Add load_first_existing_class (gfx)
Modified: branches/upstream/libany-moose-perl/current/LICENSE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/LICENSE?rev=75331&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/LICENSE (original)
+++ branches/upstream/libany-moose-perl/current/LICENSE Fri Jun 10 08:52:46 2011
@@ -18,15 +18,16 @@
The GNU General Public License, Version 1, February 1989
- GNU GENERAL PUBLIC LICENSE
- Version 1, February 1989
+ GNU GENERAL PUBLIC LICENSE
+ Version 1, February 1989
Copyright (C) 1989 Free Software Foundation, Inc.
- 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA
+ 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
- Preamble
+ Preamble
The license agreements of most software companies try to keep users
at the mercy of those companies. By contrast, our General Public
@@ -67,7 +68,7 @@
The precise terms and conditions for copying, distribution and
modification follow.
- GNU GENERAL PUBLIC LICENSE
+ GNU GENERAL PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. This License Agreement applies to any program or other work which
@@ -185,7 +186,7 @@
of preserving the free status of all derivatives of our free software and
of promoting the sharing and reuse of software generally.
- NO WARRANTY
+ NO WARRANTY
9. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
@@ -207,9 +208,9 @@
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
- END OF TERMS AND CONDITIONS
-
- Appendix: How to Apply These Terms to Your New Programs
+ END OF TERMS AND CONDITIONS
+
+ Appendix: How to Apply These Terms to Your New Programs
If you develop a new program, and you want it to be of the greatest
possible use to humanity, the best way to achieve this is to make it
@@ -235,8 +236,9 @@
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software Foundation,
- Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
+ along with this program; if not, write to the Free Software
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA
+
Also add information on how to contact you by electronic and paper mail.
Modified: branches/upstream/libany-moose-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/MANIFEST?rev=75331&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/MANIFEST (original)
+++ branches/upstream/libany-moose-perl/current/MANIFEST Fri Jun 10 08:52:46 2011
@@ -4,6 +4,7 @@
META.yml
Makefile.PL
README
+devel/test-combos.pl
dist.ini
lib/Any/Moose.pm
t/000-version.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=75331&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/META.yml (original)
+++ branches/upstream/libany-moose-perl/current/META.yml Fri Jun 10 08:52:46 2011
@@ -8,9 +8,9 @@
- 'Goro Fuji <gfuji at cpan.org>'
build_requires: {}
configure_requires:
- ExtUtils::MakeMaker: 6.31
+ ExtUtils::MakeMaker: 6.30
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.200004, CPAN::Meta::Converter version 2.110360'
+generated_by: 'Dist::Zilla version 4.200007, CPAN::Meta::Converter version 2.110440'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -19,4 +19,4 @@
requires:
Mouse: 0.40
perl: 5.006_002
-version: 0.14
+version: 0.15
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=75331&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/Makefile.PL (original)
+++ branches/upstream/libany-moose-perl/current/Makefile.PL Fri Jun 10 08:52:46 2011
@@ -2,9 +2,9 @@
use strict;
use warnings;
-BEGIN { require 5.006_002; }
+use 5.006_002;
-use ExtUtils::MakeMaker 6.31;
+use ExtUtils::MakeMaker 6.30;
@@ -13,7 +13,7 @@
'AUTHOR' => '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>',
'BUILD_REQUIRES' => {},
'CONFIGURE_REQUIRES' => {
- 'ExtUtils::MakeMaker' => '6.31'
+ 'ExtUtils::MakeMaker' => '6.30'
},
'DISTNAME' => 'Any-Moose',
'EXE_FILES' => [],
@@ -22,7 +22,7 @@
'PREREQ_PM' => {
'Mouse' => '0.40'
},
- 'VERSION' => '0.14',
+ 'VERSION' => '0.15',
'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=75331&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/README (original)
+++ branches/upstream/libany-moose-perl/current/README Fri Jun 10 08:52:46 2011
@@ -1,7 +1,7 @@
This archive contains the distribution Any-Moose,
-version 0.14:
+version 0.15:
use Moose or Mouse modules
Added: branches/upstream/libany-moose-perl/current/devel/test-combos.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/devel/test-combos.pl?rev=75331&op=file
==============================================================================
--- branches/upstream/libany-moose-perl/current/devel/test-combos.pl (added)
+++ branches/upstream/libany-moose-perl/current/devel/test-combos.pl Fri Jun 10 08:52:46 2011
@@ -1,0 +1,52 @@
+#!/usr/bin/env perl
+use 5.14.0;
+use warnings;
+use Data::PowerSet 'powerset';
+
+my @all_modules = qw(Mouse MouseX::Types Moose MooseX::Types);
+
+my %results;
+
+for my $modules (@{ powerset(@all_modules) }) {
+ my $list = join ',', @$modules;
+
+ say '=' x 60;
+ say "RUNNING WITHOUT $list";
+ say '=' x 60;
+
+ $ENV{PERL5OPT} = "-MTest::Without::Module=$list";
+ system("prove");
+
+ push @{ $results{ $? >> 8 ? "NOT OK" : "OK" } }, $list;
+}
+
+for my $result (sort keys %results) {
+ my @modules = @{ $results{$result} };
+ say "$result when testing without:";
+ say "* $_" for @modules;
+ say '';
+}
+
+__END__
+
+... test results ...
+
+NOT OK when testing without:
+* Mouse,MouseX::Types,Moose,MooseX::Types
+* Mouse,Moose,MooseX::Types
+* Mouse,MouseX::Types,Moose
+* Mouse,Moose
+
+OK when testing without:
+* MouseX::Types,Moose,MooseX::Types
+* Moose,MooseX::Types
+* Mouse,MouseX::Types,MooseX::Types
+* MouseX::Types,MooseX::Types
+* Mouse,MooseX::Types
+* MooseX::Types
+* MouseX::Types,Moose
+* Moose
+* Mouse,MouseX::Types
+* MouseX::Types
+* Mouse
+*
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=75331&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/dist.ini (original)
+++ branches/upstream/libany-moose-perl/current/dist.ini Fri Jun 10 08:52:46 2011
@@ -1,5 +1,5 @@
name = Any-Moose
-version = 0.14
+version = 0.15
author = Shawn M Moore <sartak at bestpractical.com>
author = Florian Ragwitz <rafl at debian.org>
author = Stevan Little <stevan at iinteractive.com>
@@ -14,6 +14,6 @@
[PodWeaver]
-[Prereq]
+[Prereqs]
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=75331&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/lib/Any/Moose.pm (original)
+++ branches/upstream/libany-moose-perl/current/lib/Any/Moose.pm Fri Jun 10 08:52:46 2011
@@ -1,6 +1,6 @@
package Any::Moose;
BEGIN {
- $Any::Moose::VERSION = '0.14';
+ $Any::Moose::VERSION = '0.15';
}
# ABSTRACT: use Moose or Mouse modules
@@ -236,7 +236,7 @@
=head1 VERSION
-version 0.14
+version 0.15
=head1 SYNOPSIS
Modified: branches/upstream/libany-moose-perl/current/t/000-version.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/t/000-version.t?rev=75331&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/000-version.t (original)
+++ branches/upstream/libany-moose-perl/current/t/000-version.t Fri Jun 10 08:52:46 2011
@@ -12,10 +12,10 @@
sub show_version {
my $klass = shift;
- if (eval "require $klass; 1;") {
+ if (eval "use $klass (); 1") {
no strict 'refs';
diag "$klass: " . ${"${klass}::VERSION"};
} else {
- diag "$klass not found";
+ diag "$klass unavailable: $@";
}
}
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=75331&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 Fri Jun 10 08:52:46 2011
@@ -6,8 +6,8 @@
BEGIN { delete $ENV{ANY_MOOSE} }
BEGIN {
- eval 'require Moose';
- plan skip_all => 'Moose not available' if $@;
+ eval 'use Moose ()';
+ plan skip_all => "Moose unavailable: $@" if $@;
plan tests => 9;
}
Modified: branches/upstream/libany-moose-perl/current/t/001-basic-mouse.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/t/001-basic-mouse.t?rev=75331&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/001-basic-mouse.t (original)
+++ branches/upstream/libany-moose-perl/current/t/001-basic-mouse.t Fri Jun 10 08:52:46 2011
@@ -6,8 +6,8 @@
BEGIN { delete $ENV{ANY_MOOSE} }
BEGIN {
- eval 'require Mouse';
- plan skip_all => 'Mouse not available' if $@;
+ eval 'use Mouse ()';
+ plan skip_all => "Mouse unavailable: $@" if $@;
plan tests => 9;
}
@@ -29,9 +29,8 @@
ok(!Moused::Any::Moose->can('has'), "has was unimported");
SKIP: {
- my $loaded_moose;
- BEGIN { $loaded_moose = eval 'require Moose' }
- skip "Moose required for these tests to be useful" => 3 unless $loaded_moose;
+ eval 'use Moose ()';
+ skip "Moose unavailable: $@" => 3 if $@;
do {
package After::Moose;
Modified: branches/upstream/libany-moose-perl/current/t/002-other-modules-moose.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/t/002-other-modules-moose.t?rev=75331&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/002-other-modules-moose.t (original)
+++ branches/upstream/libany-moose-perl/current/t/002-other-modules-moose.t Fri Jun 10 08:52:46 2011
@@ -6,8 +6,8 @@
BEGIN { delete $ENV{ANY_MOOSE} }
BEGIN {
- eval 'require Moose';
- plan skip_all => 'Moose not available' if $@;
+ eval 'use Moose ()';
+ plan skip_all => "Moose unavailable: $@" if $@;
plan tests => 2;
}
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=75331&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 Fri Jun 10 08:52:46 2011
@@ -6,8 +6,8 @@
BEGIN { delete $ENV{ANY_MOOSE} }
BEGIN {
- eval 'require Mouse';
- plan skip_all => 'Mouse not available' if $@;
+ eval 'use Mouse ()';
+ plan skip_all => "Mouse unavailable: $@" if $@;
plan tests => 2;
}
@@ -21,9 +21,8 @@
};
SKIP: {
- my $loaded_moose;
- BEGIN { $loaded_moose = eval 'require Moose' }
- skip "Moose required for these tests to be useful" => 1 unless $loaded_moose;
+ eval 'use Moose ()';
+ skip "Moose unavailable: $@" => 1 if $@;
do {
package After::Moose;
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=75331&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 Fri Jun 10 08:52:46 2011
@@ -6,8 +6,8 @@
BEGIN { delete $ENV{ANY_MOOSE} }
BEGIN {
- eval 'require Mouse';
- plan skip_all => 'Mouse not available' if $@;
+ eval 'use Mouse ()';
+ plan skip_all => "Mouse unavailable: $@" if $@;
plan tests => 3;
}
@@ -21,8 +21,8 @@
package Foo;
BEGIN {
SKIP: {
- eval 'use Moose';
- ::skip 'Moose not installed', 1 if $@;
+ eval 'use Moose ()';
+ ::skip "Moose unavailable: $@", 1 if $@;
::ok(Any::Moose::_is_moose_loaded(), '... Moose is loaded');
}
Modified: branches/upstream/libany-moose-perl/current/t/004-x-modules-moose.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/t/004-x-modules-moose.t?rev=75331&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/004-x-modules-moose.t (original)
+++ branches/upstream/libany-moose-perl/current/t/004-x-modules-moose.t Fri Jun 10 08:52:46 2011
@@ -6,8 +6,11 @@
BEGIN { delete $ENV{ANY_MOOSE} }
BEGIN {
- eval 'require Moose; require MooseX::Types';
- plan skip_all => 'Moose or MooseX::Types not available' if $@;
+ eval 'use Moose ()';
+ plan skip_all => "Moose unavailable: $@" if $@;
+ eval 'use MooseX::Types ()';
+ plan skip_all => "Moose::Types unavailable: $@" if $@;
+
plan tests => 2;
}
Modified: branches/upstream/libany-moose-perl/current/t/004-x-modules-mouse.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/t/004-x-modules-mouse.t?rev=75331&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/004-x-modules-mouse.t (original)
+++ branches/upstream/libany-moose-perl/current/t/004-x-modules-mouse.t Fri Jun 10 08:52:46 2011
@@ -6,7 +6,11 @@
BEGIN { delete $ENV{ANY_MOOSE} }
BEGIN {
- plan skip_all => 'Mouse or MouseX::Types 0.03 not available' unless eval "require Mouse; require MouseX::Types 0.03;";
+ eval 'use Mouse ()';
+ plan skip_all => "Mouse unavailable: $@" if $@;
+ eval 'use MouseX::Types 0.03';
+ plan skip_all => "Mouse::Types 0.03 unavailable: $@" if $@;
+
plan tests => 2;
}
@@ -19,9 +23,10 @@
};
SKIP: {
- my $loaded_moose;
- BEGIN { $loaded_moose = eval 'require Moose; require MooseX::Types' }
- skip "Moose and MooseX::Types required for these tests to be useful" => 1 unless $loaded_moose;
+ eval 'use Moose ()';
+ skip "Moose unavailable: $@" => 1 if $@;
+ eval 'use MooseX::Types ()';
+ skip "MooseX::Types unavailable: $@" => 1 if $@;
do {
package After::Moose;
Modified: branches/upstream/libany-moose-perl/current/t/005-aliases-moose.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/t/005-aliases-moose.t?rev=75331&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/005-aliases-moose.t (original)
+++ branches/upstream/libany-moose-perl/current/t/005-aliases-moose.t Fri Jun 10 08:52:46 2011
@@ -6,8 +6,8 @@
BEGIN { delete $ENV{ANY_MOOSE} }
BEGIN {
- eval 'require Moose;';
- plan skip_all => 'Moose not available' if $@;
+ eval 'use Moose ()';
+ plan skip_all => "Moose unavailable: $@" if $@;
plan tests => 21;
}
Modified: branches/upstream/libany-moose-perl/current/t/005-aliases-mouse.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/t/005-aliases-mouse.t?rev=75331&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/005-aliases-mouse.t (original)
+++ branches/upstream/libany-moose-perl/current/t/005-aliases-mouse.t Fri Jun 10 08:52:46 2011
@@ -6,8 +6,8 @@
BEGIN { delete $ENV{ANY_MOOSE} }
BEGIN {
- eval 'require Mouse;';
- plan skip_all => 'Mouse not available' if $@;
+ eval 'use Mouse ()';
+ plan skip_all => "Mouse unavailable: $@" if $@;
plan tests => 21;
}
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=75331&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 Fri Jun 10 08:52:46 2011
@@ -6,8 +6,8 @@
BEGIN { delete $ENV{ANY_MOOSE} }
BEGIN {
- eval 'require Mouse';
- plan skip_all => 'Mouse not available' if $@;
+ eval 'use Mouse ()';
+ plan skip_all => "Mouse unavailable: $@" if $@;
plan tests => 1;
}
Modified: branches/upstream/libany-moose-perl/current/t/011-use_moose_roles.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libany-moose-perl/current/t/011-use_moose_roles.t?rev=75331&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/011-use_moose_roles.t (original)
+++ branches/upstream/libany-moose-perl/current/t/011-use_moose_roles.t Fri Jun 10 08:52:46 2011
@@ -6,8 +6,8 @@
BEGIN { delete $ENV{ANY_MOOSE} }
BEGIN {
- eval 'require Moose';
- plan skip_all => 'Moose not available' if $@;
+ eval 'use Moose ()';
+ plan skip_all => "Moose unavailable: $@" if $@;
plan tests => 1;
}
Modified: 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=75331&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/012-use_moose_util.t (original)
+++ branches/upstream/libany-moose-perl/current/t/012-use_moose_util.t Fri Jun 10 08:52:46 2011
@@ -6,8 +6,8 @@
BEGIN { delete $ENV{ANY_MOOSE} }
BEGIN {
- eval 'require Moose';
- plan skip_all => 'Moose not available' if $@;
+ eval 'use Moose ()';
+ plan skip_all => "Moose unavailable: $@" if $@;
plan tests => 2;
}
Modified: 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=75331&op=diff
==============================================================================
--- branches/upstream/libany-moose-perl/current/t/012-use_mouse_util.t (original)
+++ branches/upstream/libany-moose-perl/current/t/012-use_mouse_util.t Fri Jun 10 08:52:46 2011
@@ -6,8 +6,8 @@
BEGIN { delete $ENV{ANY_MOOSE} }
BEGIN {
- eval 'require Mouse';
- plan skip_all => 'Mouse not available' if $@;
+ eval 'use Mouse ()';
+ plan skip_all => "Mouse unavailable: $@" if $@;
plan tests => 2;
}
More information about the Pkg-perl-cvs-commits
mailing list