r30621 - in /trunk/libmouse-perl: ./ debian/ lib/ lib/Mouse/ lib/Mouse/Meta/ lib/Mouse/Util/ t/ t/800_shikabased/
bricas-guest at users.alioth.debian.org
bricas-guest at users.alioth.debian.org
Thu Feb 12 14:37:20 UTC 2009
Author: bricas-guest
Date: Thu Feb 12 14:37:17 2009
New Revision: 30621
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=30621
Log:
New upstream release
Modified:
trunk/libmouse-perl/Changes
trunk/libmouse-perl/META.yml
trunk/libmouse-perl/SIGNATURE
trunk/libmouse-perl/debian/changelog
trunk/libmouse-perl/lib/Mouse.pm
trunk/libmouse-perl/lib/Mouse/Meta/Class.pm
trunk/libmouse-perl/lib/Mouse/Role.pm
trunk/libmouse-perl/lib/Mouse/Tiny.pm
trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm
trunk/libmouse-perl/t/000-load.t
trunk/libmouse-perl/t/041-enum.t
trunk/libmouse-perl/t/500_moose_extends_mouse.t
trunk/libmouse-perl/t/501_moose_coerce_mouse.t
trunk/libmouse-perl/t/800_shikabased/013-compatibility-get_method_list.t
Modified: trunk/libmouse-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/Changes?rev=30621&op=diff
==============================================================================
--- trunk/libmouse-perl/Changes (original)
+++ trunk/libmouse-perl/Changes Thu Feb 12 14:37:17 2009
@@ -1,4 +1,12 @@
Revision history for Mouse
+
+0.16 Mon Feb 9 20:56:27 2009
+ * Implement get_all_method_names
+
+ * Support for anonymous enums: enum [elements]
+
+ * Moose's make_immutable returns true allowing calling code to skip
+ setting an explicit true value at the end of a source file. (obra)
0.15 Thu Feb 5 11:44:05 2009
* Don't export Mouse's sugar into the package 'main'
Modified: trunk/libmouse-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/META.yml?rev=30621&op=diff
==============================================================================
--- trunk/libmouse-perl/META.yml (original)
+++ trunk/libmouse-perl/META.yml Thu Feb 12 14:37:17 2009
@@ -19,4 +19,4 @@
requires:
perl: 5.6.0
tests: t/*.t t/*/*.t
-version: 0.15
+version: 0.16
Modified: trunk/libmouse-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/SIGNATURE?rev=30621&op=diff
==============================================================================
--- trunk/libmouse-perl/SIGNATURE (original)
+++ trunk/libmouse-perl/SIGNATURE Thu Feb 12 14:37:17 2009
@@ -14,7 +14,7 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 04f7b55dc0a58202d21ca3b1b96f672464b4a272 Changes
+SHA1 28c6eae71869acf04491ce9abd18ad50f28b25e2 Changes
SHA1 cc5b8b3e9c343ee4255aac699cd2c9545d2db28e MANIFEST
SHA1 476c039b99ca320d9ae7796816e6c710acdc4e59 META.yml
SHA1 739ec327f9abe6e0fc5f9dc7bc62607c562d4081 Makefile.PL
@@ -32,22 +32,22 @@
SHA1 d32dff9f0d2f02023ca6d79a48d62fd855916351 inc/Module/Install/WriteAll.pm
SHA1 29ccdbe057fec4775456b275262881a6f79531d6 inc/Test/Exception.pm
SHA1 ab0c02dbe66a1a82be1cc3909a06b41d3e5894c2 inc/Test/More.pm
-SHA1 7bb7b124a343baad0b304fc5794ff6b06193b15e lib/Mouse.pm
+SHA1 161787ca3332d8be72bd6d0b9f11beb4c4c6f1f8 lib/Mouse.pm
SHA1 5b298920615fd882a22420bff171102160b30ce5 lib/Mouse/Meta/Attribute.pm
-SHA1 cefe8f99d3e7b5faccfa4aaf55ef5f8187439804 lib/Mouse/Meta/Class.pm
+SHA1 452ba663e757a2b368d5f252486c4e9d3c59666b lib/Mouse/Meta/Class.pm
SHA1 c92a58160d997408252443102f4ed3f59c81aabd lib/Mouse/Meta/Method/Constructor.pm
SHA1 8feddf4deaee14d9c1f69eff8d0c986222e90dde lib/Mouse/Meta/Method/Destructor.pm
SHA1 d7d068b3351d7c599ea0caf7f08e3d1a6903e123 lib/Mouse/Meta/Role.pm
SHA1 686313656947a1afd8e86bbd450f285a275ca6b4 lib/Mouse/Object.pm
-SHA1 177c720a80597cd7605d374cfd632d9a5181690a lib/Mouse/Role.pm
-SHA1 18274b11df806115455413ceff78211bfcecd8f3 lib/Mouse/Tiny.pm
+SHA1 956720a381c30fdc017c589957a8069d648f4155 lib/Mouse/Role.pm
+SHA1 55915e1255056f17fb813cdb45eae3b8ce00b71b lib/Mouse/Tiny.pm
SHA1 affa82bf47e1888f22731b76c5c0f678bc5e43c0 lib/Mouse/TypeRegistry.pm
SHA1 f1861be095458741b1a176f70ba2cc83ea13965e lib/Mouse/Util.pm
-SHA1 84ecb42dab41c050fb9ed58ee6ab3060cd2d616b lib/Mouse/Util/TypeConstraints.pm
+SHA1 d4ba85be3d0e072c4e4b9ec24e3873c0ec85b6ba lib/Mouse/Util/TypeConstraints.pm
SHA1 50017b83f252cac26cc828e427231ce8a9cd3c4d lib/Squirrel.pm
SHA1 1d459388c2b9e9173b9fcb0f13413b85758a1e7a lib/Squirrel/Role.pm
SHA1 7953af29701a1f92486e4af890baac30155774e0 lib/ouse.pm
-SHA1 2cc031556531de0bb70d9362298aa11b07c9b2db t/000-load.t
+SHA1 a032ef857e5af0b9abf473804cb16a3ce335ec4f t/000-load.t
SHA1 7a6085c37c3b375546885d4fa9bc06ed30468435 t/000-recipes/001_point.t
SHA1 87e71f415a91d6ac23ad63054f2aab8b42670521 t/001-strict.t
SHA1 b6bf566efa068afb392bb25d1497adc0f342dd09 t/002-warnings.t
@@ -90,7 +90,7 @@
SHA1 6e73be9e0b24bf0baf62517aa41b36807990a372 t/038-main.t
SHA1 5a41d555a7dbb2319d30d9827e441d57e314fdd4 t/039-subtype.t
SHA1 e845d0feb414ec954d04efac50dacdaa2cab30a1 t/040-existing-subclass.t
-SHA1 2177082c2f9f1b734eeffbe1f039aa7b75e8dbe0 t/041-enum.t
+SHA1 abcd24e01ed3653acd0cb5443df1a49aef4b5ffa t/041-enum.t
SHA1 89bbc4b861d0366721cdb919d3950c0926f41f9f t/042-override.t
SHA1 1593a1a3d5fbf80860458f57e6e0e4c87765aab1 t/100-meta-class.t
SHA1 ed10e0911cfe567b1f8546c1ab9339b74a3fe575 t/101-meta-attribute.t
@@ -106,8 +106,8 @@
SHA1 199e4d90651594b4a459562bb6261ca7787638e8 t/401-meta-role.t
SHA1 14b7688b7f0d07d289f137051641a7885eeefef9 t/402-attribute-application.t
SHA1 44c26a61ae4fbf84d7ca6bb5a9dfe1dea4872466 t/403-method-modifiers.t
-SHA1 7e3da6b1bad2f3617b15a72ccea862f2f20885db t/500_moose_extends_mouse.t
-SHA1 d402986e7fe09058e7c4e54c8ff4ad756cee94c6 t/501_moose_coerce_mouse.t
+SHA1 3e6cd52ab51e18702aa0350e31f349387bb34903 t/500_moose_extends_mouse.t
+SHA1 8e0aa09822a675fb7a5956c0554410f9203fa85e t/501_moose_coerce_mouse.t
SHA1 2e7f7f98574d85d60badc954085c921d6e514972 t/600-tiny-tiny.t
SHA1 15b7a10fc869cc014d8d173aa28bd9ae6a3101b2 t/601-tiny-mouse.t
SHA1 ef4636af45a9e6d08c0e9adede1c84871af5f068 t/602-mouse-tiny.t
@@ -123,7 +123,7 @@
SHA1 a4394a11c9f58183f8b135ef31db4fc290c7bd24 t/800_shikabased/010-isa-or.t
SHA1 3a4a820ae20b4e8566a01ec5322e1aef4fdcaed9 t/800_shikabased/011-util-linear-isa.t
SHA1 3448dc21f87574c329cfcec25271c00b64655ccb t/800_shikabased/012-role-compatibility.t
-SHA1 d70ce846098cb9add8cb87811f4d7799268b23c6 t/800_shikabased/013-compatibility-get_method_list.t
+SHA1 a3ecf70ff3efe242f5f572bd7ac79763793c14cd t/800_shikabased/013-compatibility-get_method_list.t
SHA1 f6f2732bbf0c07db911cfafb15a762d8ea1ac7f8 t/800_shikabased/014-subtype-as.t
SHA1 e4f152b946efb3a39d27f3e708d0f5a49fba42b4 t/lib/ClassType_Foo.pm
SHA1 5c30addc00eab464845e8d593ec12b44919997c3 t/lib/SyntaxError.pm
@@ -131,7 +131,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.7 (Darwin)
-iD8DBQFJixuisxfQtHhyRPoRAnWzAJ955mVtj8IzWqNI/OlngsXdb0TlWgCghofJ
-qpL8/zFpn4s3WOd5IkrZIcI=
-=7KCW
+iD8DBQFJkOFpsxfQtHhyRPoRAvxxAJsG/qKhuw0wAeMmSXXpKmdU3RgP5gCeLoeG
+JsgFI/YWkoS+eLPG8z3NEpo=
+=4JqY
-----END PGP SIGNATURE-----
Modified: trunk/libmouse-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/debian/changelog?rev=30621&op=diff
==============================================================================
--- trunk/libmouse-perl/debian/changelog (original)
+++ trunk/libmouse-perl/debian/changelog Thu Feb 12 14:37:17 2009
@@ -1,3 +1,9 @@
+libmouse-perl (0.16-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Brian Cassidy <brian.cassidy at gmail.com> Thu, 12 Feb 2009 10:31:33 -0400
+
libmouse-perl (0.15-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libmouse-perl/lib/Mouse.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse.pm?rev=30621&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse.pm (original)
+++ trunk/libmouse-perl/lib/Mouse.pm Thu Feb 12 14:37:17 2009
@@ -4,7 +4,7 @@
use 5.006;
use base 'Exporter';
-our $VERSION = '0.15';
+our $VERSION = '0.16';
BEGIN {
if ($ENV{MOUSE_DEBUG}) {
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Class.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Class.pm?rev=30621&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Class.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Class.pm Thu Feb 12 14:37:17 2009
@@ -69,9 +69,9 @@
}
# copied from Class::Inspector
-sub get_method_list {
- my $self = shift;
- my $name = $self->name;
+my $get_methods_for_class = sub {
+ my $self = shift;
+ my $name = shift;
no strict 'refs';
# Get all the CODE symbol table entries
@@ -79,8 +79,21 @@
grep !/^(?:has|with|around|before|after|blessed|extends|confess|override|super)$/,
grep { defined &{"${name}::$_"} }
keys %{"${name}::"};
- push @functions, keys %{$self->{'methods'}->{$name}};
+ push @functions, keys %{$self->{'methods'}->{$name}} if $self;
wantarray ? @functions : \@functions;
+};
+
+sub get_method_list {
+ my $self = shift;
+ $get_methods_for_class->($self, $self->name);
+}
+
+sub get_all_method_names {
+ my $self = shift;
+ my %uniq;
+ return grep { $uniq{$_}++ == 0 }
+ map { $get_methods_for_class->(undef, $_) }
+ $self->linearized_isa;
}
sub add_attribute {
@@ -160,6 +173,10 @@
if ($args{inline_destructor}) {
$self->add_method('DESTROY' => Mouse::Meta::Method::Destructor->generate_destructor_method_inline( $self ));
}
+
+ # Moose's make_immutable returns true allowing calling code to skip setting an explicit true value
+ # at the end of a source file.
+ return 1;
}
sub make_mutable { confess "Mouse does not currently support 'make_mutable'" }
@@ -178,14 +195,16 @@
$code
);
}
- else {
- require Class::Method::Modifiers;
+ elsif (eval "require Class::Method::Modifiers; 1") {
Class::Method::Modifiers::_install_modifier(
$into,
$type,
$name,
$code
);
+ }
+ else {
+ Carp::croak("Method modifiers require the use of Class::Method::Modifiers. Please install it from CPAN and file a bug report with this application.");
}
}
Modified: trunk/libmouse-perl/lib/Mouse/Role.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Role.pm?rev=30621&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Role.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Role.pm Thu Feb 12 14:37:17 2009
@@ -104,7 +104,7 @@
=head1 NAME
-Mouse::Role
+Mouse::Role - define a role in Mouse
=head1 KEYWORDS
Modified: trunk/libmouse-perl/lib/Mouse/Tiny.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Tiny.pm?rev=30621&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Tiny.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Tiny.pm Thu Feb 12 14:37:17 2009
@@ -113,7 +113,7 @@
use 5.006;
use base 'Exporter';
-our $VERSION = '0.15';
+our $VERSION = '0.16';
BEGIN {
if ($ENV{MOUSE_DEBUG}) {
@@ -754,9 +754,9 @@
}
# copied from Class::Inspector
-sub get_method_list {
+my $get_methods_for_class = sub {
my $self = shift;
- my $name = $self->name;
+ my $name = shift;
no strict 'refs';
# Get all the CODE symbol table entries
@@ -764,8 +764,21 @@
grep !/^(?:has|with|around|before|after|blessed|extends|confess|override|super)$/,
grep { defined &{"${name}::$_"} }
keys %{"${name}::"};
- push @functions, keys %{$self->{'methods'}->{$name}};
+ push @functions, keys %{$self->{'methods'}->{$name}} if $self;
wantarray ? @functions : \@functions;
+};
+
+sub get_method_list {
+ my $self = shift;
+ $get_methods_for_class->($self, $self->name);
+}
+
+sub get_all_method_names {
+ my $self = shift;
+ my %uniq;
+ return grep { $uniq{$_}++ == 0 }
+ map { $get_methods_for_class->(undef, $_) }
+ $self->linearized_isa;
}
sub add_attribute {
@@ -845,6 +858,10 @@
if ($args{inline_destructor}) {
$self->add_method('DESTROY' => Mouse::Meta::Method::Destructor->generate_destructor_method_inline( $self ));
}
+
+ # Moose's make_immutable returns true allowing calling code to skip setting an explicit true value
+ # at the end of a source file.
+ return 1;
}
sub make_mutable { confess "Mouse does not currently support 'make_mutable'" }
@@ -863,14 +880,16 @@
$code
);
}
- else {
- require Class::Method::Modifiers;
+ elsif (eval "require Class::Method::Modifiers; 1") {
Class::Method::Modifiers::_install_modifier(
$into,
$type,
$name,
$code
);
+ }
+ else {
+ Carp::croak("Method modifiers require the use of Class::Method::Modifiers. Please install it from CPAN and file a bug report with this application.");
}
}
@@ -1835,7 +1854,19 @@
return $value;
}
+my $serial_enum = 0;
sub enum {
+ # enum ['small', 'medium', 'large']
+ if (ref($_[0]) eq 'ARRAY') {
+ my @elements = @{ shift @_ };
+
+ my $name = 'Mouse::Util::TypeConstaints::Enum::Serial::'
+ . ++$serial_enum;
+ enum($name, @elements);
+ return $name;
+ }
+
+ # enum size => 'small', 'medium', 'large'
my $name = shift;
my %is_valid = map { $_ => 1 } @_;
Modified: trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm?rev=30621&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm Thu Feb 12 14:37:17 2009
@@ -161,7 +161,19 @@
return $value;
}
+my $serial_enum = 0;
sub enum {
+ # enum ['small', 'medium', 'large']
+ if (ref($_[0]) eq 'ARRAY') {
+ my @elements = @{ shift @_ };
+
+ my $name = 'Mouse::Util::TypeConstaints::Enum::Serial::'
+ . ++$serial_enum;
+ enum($name, @elements);
+ return $name;
+ }
+
+ # enum size => 'small', 'medium', 'large'
my $name = shift;
my %is_valid = map { $_ => 1 } @_;
Modified: trunk/libmouse-perl/t/000-load.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/t/000-load.t?rev=30621&op=diff
==============================================================================
--- trunk/libmouse-perl/t/000-load.t (original)
+++ trunk/libmouse-perl/t/000-load.t Thu Feb 12 14:37:17 2009
@@ -15,6 +15,9 @@
diag " Class::MOP: $Class::MOP::VERSION";
diag " Moose: $Moose::VERSION";
+eval { require Class::Method::Modifiers::Fast };
+diag " Class::Method::Modifiers::Fast: $Class::Method::Modifiers::Fast::VERSION";
+
eval { require Class::Method::Modifiers };
diag " Class::Method::Modifiers: $Class::Method::Modifiers::VERSION";
Modified: trunk/libmouse-perl/t/041-enum.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/t/041-enum.t?rev=30621&op=diff
==============================================================================
--- trunk/libmouse-perl/t/041-enum.t (original)
+++ trunk/libmouse-perl/t/041-enum.t Thu Feb 12 14:37:17 2009
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 8;
+use Test::More tests => 16;
use Test::Exception;
do {
@@ -15,15 +15,26 @@
is => 'rw',
isa => 'Size',
);
+
+ package Shirt::Anon;
+ use Mouse;
+ use Mouse::Util::TypeConstraints 'enum';
+
+ has size => (
+ is => 'rw',
+ isa => enum ['small', 'medium', 'large'],
+ );
};
-ok(Shirt->new(size => 'small'));
-ok(Shirt->new(size => 'medium'));
-ok(Shirt->new(size => 'large'));
+for my $class ('Shirt', 'Shirt::Anon') {
+ ok($class->new(size => 'small'));
+ ok($class->new(size => 'medium'));
+ ok($class->new(size => 'large'));
-throws_ok { Shirt->new(size => 'extra small') } qr/^Attribute \(size\) does not pass the type constraint because: Validation failed for 'Size' failed with value extra small/;
-throws_ok { Shirt->new(size => 'Small') } qr/^Attribute \(size\) does not pass the type constraint because: Validation failed for 'Size' failed with value Small/;
-throws_ok { Shirt->new(size => '') } qr/^Attribute \(size\) does not pass the type constraint because: Validation failed for 'Size' failed with value /;
-throws_ok { Shirt->new(size => 'small ') } qr/^Attribute \(size\) does not pass the type constraint because: Validation failed for 'Size' failed with value small /;
-throws_ok { Shirt->new(size => ' small') } qr/^Attribute \(size\) does not pass the type constraint because: Validation failed for 'Size' failed with value small/;
+ throws_ok { $class->new(size => 'extra small') } qr/^Attribute \(size\) does not pass the type constraint because: Validation failed for '\S+' failed with value extra small/;
+ throws_ok { $class->new(size => 'Small') } qr/^Attribute \(size\) does not pass the type constraint because: Validation failed for '\S+' failed with value Small/;
+ throws_ok { $class->new(size => '') } qr/^Attribute \(size\) does not pass the type constraint because: Validation failed for '\S+' failed with value /;
+ throws_ok { $class->new(size => 'small ') } qr/^Attribute \(size\) does not pass the type constraint because: Validation failed for '\S+' failed with value small /;
+ throws_ok { $class->new(size => ' small') } qr/^Attribute \(size\) does not pass the type constraint because: Validation failed for '\S+' failed with value small/;
+}
Modified: trunk/libmouse-perl/t/500_moose_extends_mouse.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/t/500_moose_extends_mouse.t?rev=30621&op=diff
==============================================================================
--- trunk/libmouse-perl/t/500_moose_extends_mouse.t (original)
+++ trunk/libmouse-perl/t/500_moose_extends_mouse.t Thu Feb 12 14:37:17 2009
@@ -6,7 +6,7 @@
use Test::More;
use Test::Exception;
BEGIN {
- plan skip_all => "Moose required for this test" unless eval { require Moose && Moose->VERSION('0.59') };
+ plan skip_all => "Moose 0.68 required for this test" unless eval { require Moose && Moose->VERSION('0.68') };
plan tests => 27;
}
Modified: trunk/libmouse-perl/t/501_moose_coerce_mouse.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/t/501_moose_coerce_mouse.t?rev=30621&op=diff
==============================================================================
--- trunk/libmouse-perl/t/501_moose_coerce_mouse.t (original)
+++ trunk/libmouse-perl/t/501_moose_coerce_mouse.t Thu Feb 12 14:37:17 2009
@@ -6,7 +6,7 @@
use Test::More;
use Test::Exception;
BEGIN {
- plan skip_all => "Moose required for this test" unless eval { require Moose && Moose->VERSION('0.59') };
+ plan skip_all => "Moose 0.68 required for this test" unless eval { require Moose && Moose->VERSION('0.68') };
plan tests => 5;
}
Modified: trunk/libmouse-perl/t/800_shikabased/013-compatibility-get_method_list.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/t/800_shikabased/013-compatibility-get_method_list.t?rev=30621&op=diff
==============================================================================
--- trunk/libmouse-perl/t/800_shikabased/013-compatibility-get_method_list.t (original)
+++ trunk/libmouse-perl/t/800_shikabased/013-compatibility-get_method_list.t Thu Feb 12 14:37:17 2009
@@ -1,7 +1,7 @@
use strict;
use warnings;
use Test::More;
-plan skip_all => "This test requires Moose" unless eval "require Moose; 1;";
+plan skip_all => "This test requires Moose 0.68" unless eval "require Moose 0.68; 1;";
plan tests => 6;
test($_) for qw/Moose Mouse/;
More information about the Pkg-perl-cvs-commits
mailing list