r44426 - in /trunk/libmouse-perl: ./ author/ debian/ inc/Test/ lib/ lib/Mouse/ lib/Mouse/Meta/ lib/Mouse/Meta/Method/ t/030_roles/ t/800_shikabased/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Sep 20 18:05:28 UTC 2009
Author: jawnsy-guest
Date: Sun Sep 20 18:05:18 2009
New Revision: 44426
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=44426
Log:
* New upstream release
+ Only unlink Mouse::Tiny if it exists
+ auto_deref now handles isa not only ArrayRef and HashRef, but also
for ArrayRef[Foo::Bar] and HashRef[Foo::Bar]
* Standards-Version 3.8.3 (no changes)
* Added myself to Uploaders and Copyright
* Use short debhelper rules format
Modified:
trunk/libmouse-perl/Changes
trunk/libmouse-perl/META.yml
trunk/libmouse-perl/Makefile.PL
trunk/libmouse-perl/author/generate-mouse-tiny.pl
trunk/libmouse-perl/debian/changelog
trunk/libmouse-perl/debian/control
trunk/libmouse-perl/debian/copyright
trunk/libmouse-perl/debian/rules
trunk/libmouse-perl/inc/Test/More.pm
trunk/libmouse-perl/lib/Mouse.pm
trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm
trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm
trunk/libmouse-perl/lib/Mouse/Meta/Role.pm
trunk/libmouse-perl/lib/Mouse/Tiny.pm
trunk/libmouse-perl/t/030_roles/002_role.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=44426&op=diff
==============================================================================
--- trunk/libmouse-perl/Changes (original)
+++ trunk/libmouse-perl/Changes Sun Sep 20 18:05:18 2009
@@ -1,4 +1,18 @@
Revision history for Mouse
+
+0.29 Thu Sep 17 11:49:49 2009
+
+ * role class has ->meta in method_list, because it does in Moose since 0.90
+
+0.28 Wed Sep 8 20:00:06 2009
+ * Alter Makefile.PL so in author mode we generate lib/Mouse/Tiny.pm on
+ every run so that 'make dist' actually does what it's meant to (mst)
+
+ * Only unlink Mouse::Tiny if it exists, otherwise autodie pitches
+ a fit (miyagawa)
+
+ * Make auto_deref also handles isa not only ArrayRef and HashRef, but also
+ ArrayRef[Foo::Bar] and HashRef[Foo::Bar]
0.27 Thu Jul 2 15:17:37 2009
* Doc updates (Sartak)
Modified: trunk/libmouse-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/META.yml?rev=44426&op=diff
==============================================================================
--- trunk/libmouse-perl/META.yml (original)
+++ trunk/libmouse-perl/META.yml Sun Sep 20 18:05:18 2009
@@ -25,4 +25,4 @@
perl: 5.6.0
resources:
license: http://dev.perl.org/licenses/
-version: 0.27
+version: 0.28
Modified: trunk/libmouse-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/Makefile.PL?rev=44426&op=diff
==============================================================================
--- trunk/libmouse-perl/Makefile.PL (original)
+++ trunk/libmouse-perl/Makefile.PL Sun Sep 20 18:05:18 2009
@@ -24,6 +24,7 @@
} else {
print "you don't have a moose. skipping moose compatibility test\n";
}
+ system("author/generate-mouse-tiny.pl");
}
auto_include;
Modified: trunk/libmouse-perl/author/generate-mouse-tiny.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/author/generate-mouse-tiny.pl?rev=44426&op=diff
==============================================================================
--- trunk/libmouse-perl/author/generate-mouse-tiny.pl (original)
+++ trunk/libmouse-perl/author/generate-mouse-tiny.pl Sun Sep 20 18:05:18 2009
@@ -4,8 +4,10 @@
use File::Find;
use File::Slurp 'slurp';
use List::MoreUtils 'uniq';
+use autodie;
-unlink 'lib/Mouse/Tiny.pm';
+unlink 'lib/Mouse/Tiny.pm'
+ if -e 'lib/Mouse/Tiny.pm';
my @files;
Modified: trunk/libmouse-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/debian/changelog?rev=44426&op=diff
==============================================================================
--- trunk/libmouse-perl/debian/changelog (original)
+++ trunk/libmouse-perl/debian/changelog Sun Sep 20 18:05:18 2009
@@ -1,3 +1,15 @@
+libmouse-perl (0.29-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ + Only unlink Mouse::Tiny if it exists
+ + auto_deref now handles isa not only ArrayRef and HashRef, but also
+ for ArrayRef[Foo::Bar] and HashRef[Foo::Bar]
+ * Standards-Version 3.8.3 (no changes)
+ * Added myself to Uploaders and Copyright
+ * Use short debhelper rules format
+
+ -- Jonathan Yu <jawnsy at cpan.org> Sun, 20 Sep 2009 09:47:42 -0400
+
libmouse-perl (0.27-1) unstable; urgency=low
[ Nathan Handler ]
Modified: trunk/libmouse-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/debian/control?rev=44426&op=diff
==============================================================================
--- trunk/libmouse-perl/debian/control (original)
+++ trunk/libmouse-perl/debian/control Sun Sep 20 18:05:18 2009
@@ -2,14 +2,15 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7)
-Build-Depends-Indep: perl (>= 5.6.10-12), libmoose-perl (>= 0.68),
- libtest-exception-perl, libclass-method-modifiers-perl, libtest-output-perl
+Build-Depends-Indep: perl, libmoose-perl (>= 0.68), libtest-exception-perl,
+ libclass-method-modifiers-perl, libtest-output-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Gunnar Wolf <gwolf at debian.org>, gregor herrmann <gregoa at debian.org>,
Jose Luis Rivas <ghostbar38 at gmail.com>, Brian Cassidy <brian.cassidy at gmail.com>,
Rene Mayorga <rmayorga at debian.org>, Antonio Radici <antonio at dyne.org>,
- Ryan Niebur <ryanryan52 at gmail.com>, Nathan Handler <nhandler at ubuntu.com>
-Standards-Version: 3.8.2
+ Ryan Niebur <ryanryan52 at gmail.com>, Nathan Handler <nhandler at ubuntu.com>,
+ Jonathan Yu <jawnsy at cpan.org>
+Standards-Version: 3.8.3
Homepage: http://search.cpan.org/dist/Mouse/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libmouse-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libmouse-perl/
@@ -19,11 +20,8 @@
Depends: ${perl:Depends}, ${misc:Depends}
Recommends: libclass-method-modifiers-perl
Description: lightweight object framework for Perl
- Moose is the leading Perl framework for painless OO classes
- creation. Unfortunately, it's a little slow. Though significant
- progress has been made over the years, the compile time penalty is a
- non-starter for some applications.
- .
- Mouse aims to alleviate this by providing a subset of Moose's
- functionality, faster. It also has considerably less dependencies.
-
+ Mouse is a lightweight Perl object framework based largely on the techniques
+ created for Moose, the leading Perl framework for painless OO class creation.
+ It is designed to be similar in functionality to Moose, though faster, by only
+ providing a subset of Moose's functionality, alleviating some of the compile-
+ time penalty incurred by Moose. It also has considerably less dependencies.
Modified: trunk/libmouse-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/debian/copyright?rev=44426&op=diff
==============================================================================
--- trunk/libmouse-perl/debian/copyright (original)
+++ trunk/libmouse-perl/debian/copyright Sun Sep 20 18:05:18 2009
@@ -9,34 +9,37 @@
License-Alias: Perl
License: GPL-1+ | Artistic
-Files: lib/ouse.pm
-Copyright: Copyright 2008, Shawn M Moore <sartak at gmail.com>
-License-Alias: Perl
-License: GPL-1+ | Artistic
-
Files: inc/Module/*
Copyright: 2002-2009, Adam Kennedy <adamk at cpan.org>
2002-2009, Audrey Tang <autrijus at autrijus.org>
2002-2009, Brian Ingerson <ingy at cpan.org>
-License-Alias: Perl
License: Artistic | GPL-1+
-Files: debian/*
-Copyright: Copyright 2008-2009, Gunnar Wolf <gwolf at debian.org>
- and other members of the Debian Perl Group, cf. debian/changelog
-License-Alias: Perl
+Files: lib/ouse.pm
+Copyright: Copyright 2008, Shawn M Moore <sartak at gmail.com>
License: GPL-1+ | Artistic
-License: GPL-1+
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 1, or (at your option)
- any later version.
- On Debian GNU/Linux systems, the complete text of the GNU General
- Public License can be found in `/usr/share/common-licenses/GPL
+Files: debian/*
+Copyright: 2009, Jonathan Yu <jawnsy at cpan.org>
+ 2009, Nathan Handler <nhandler at ubuntu.com>
+ 2009, Ryan Niebur <ryanryan52 at gmail.com>
+ 2009, Rene Mayorga <rmayorga at debian.org>
+ 2008-2009, Brian Cassidy <brian.cassidy at gmail.com>
+ 2008, gregor herrmann <gregoa at debian.org>
+ 2008, Jose Luis Rivas <ghostbar38 at gmail.com>
+ 2008, Gunnar Wolf <gwolf at debian.org>
+License: GPL-1+ | Artistic
License: Artistic
This program is free software; you can redistribute it and/or modify
it under the terms of the Artistic License, which comes with Perl.
On Debian GNU/Linux systems, the complete text of the Artistic License
- can be found in /usr/share/common-licenses/Artistic
+ can be found in `/usr/share/common-licenses/Artistic'
+
+License: GPL-1+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ On Debian GNU/Linux systems, the complete text of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL'
Modified: trunk/libmouse-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/debian/rules?rev=44426&op=diff
==============================================================================
--- trunk/libmouse-perl/debian/rules (original)
+++ trunk/libmouse-perl/debian/rules Sun Sep 20 18:05:18 2009
@@ -1,23 +1,4 @@
#!/usr/bin/make -f
-build: build-stamp
-build-stamp:
- dh build
- touch $@
-
-clean:
+%:
dh $@
-
-install: install-stamp
-install-stamp: build-stamp
- dh install
- touch $@
-
-binary-arch:
-
-binary-indep: install
- dh $@
-
-binary: binary-arch binary-indep
-
-.PHONY: binary binary-arch binary-indep install clean build
Modified: trunk/libmouse-perl/inc/Test/More.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/inc/Test/More.pm?rev=44426&op=diff
==============================================================================
--- trunk/libmouse-perl/inc/Test/More.pm (original)
+++ trunk/libmouse-perl/inc/Test/More.pm Sun Sep 20 18:05:18 2009
@@ -18,7 +18,7 @@
return warn @_, " at $file line $line\n";
}
-our $VERSION = '0.88';
+our $VERSION = '0.94';
$VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval)
use Test::Builder::Module;
@@ -34,10 +34,11 @@
done_testing
can_ok isa_ok new_ok
diag note explain
+ subtest
BAIL_OUT
);
-#line 163
+#line 164
sub plan {
my $tb = Test::More->builder;
@@ -71,7 +72,7 @@
return;
}
-#line 216
+#line 217
sub done_testing {
my $tb = Test::More->builder;
@@ -188,6 +189,7 @@
}
elsif( $error =~ /Can't call method "isa" without a package/ ) {
# It's something that can't even be a class
+ $obj_name = 'The thing' unless defined $obj_name;
$diag = "$obj_name isn't a class or reference";
}
else {
@@ -220,7 +222,7 @@
return $ok;
}
-#line 650
+#line 651
sub new_ok {
my $tb = Test::More->builder;
@@ -245,7 +247,16 @@
return $obj;
}
-#line 690
+#line 719
+
+sub subtest($&) {
+ my ($name, $subtests) = @_;
+
+ my $tb = Test::More->builder;
+ return $tb->subtest(@_);
+}
+
+#line 743
sub pass (;$) {
my $tb = Test::More->builder;
@@ -259,7 +270,7 @@
return $tb->ok( 0, @_ );
}
-#line 753
+#line 806
sub use_ok ($;@) {
my( $module, @imports ) = @_;
@@ -321,7 +332,7 @@
return( $eval_result, $eval_error );
}
-#line 822
+#line 875
sub require_ok ($) {
my($module) = shift;
@@ -365,7 +376,7 @@
return $module =~ /^[a-zA-Z]\w*$/ ? 1 : 0;
}
-#line 899
+#line 952
our( @Data_Stack, %Refs_Seen );
my $DNE = bless [], 'Does::Not::Exist';
@@ -472,7 +483,7 @@
return '';
}
-#line 1059
+#line 1112
sub diag {
return Test::More->builder->diag(@_);
@@ -482,13 +493,13 @@
return Test::More->builder->note(@_);
}
-#line 1085
+#line 1138
sub explain {
return Test::More->builder->explain(@_);
}
-#line 1151
+#line 1204
## no critic (Subroutines::RequireFinalReturn)
sub skip {
@@ -516,7 +527,7 @@
last SKIP;
}
-#line 1238
+#line 1288
sub todo_skip {
my( $why, $how_many ) = @_;
@@ -537,7 +548,7 @@
last TODO;
}
-#line 1293
+#line 1343
sub BAIL_OUT {
my $reason = shift;
@@ -546,7 +557,7 @@
$tb->BAIL_OUT($reason);
}
-#line 1332
+#line 1382
#'#
sub eq_array {
@@ -672,7 +683,7 @@
}
}
-#line 1465
+#line 1515
sub eq_hash {
local @Data_Stack = ();
@@ -705,7 +716,7 @@
return $ok;
}
-#line 1522
+#line 1572
sub eq_set {
my( $a1, $a2 ) = @_;
@@ -730,6 +741,6 @@
);
}
-#line 1717
+#line 1774
1;
Modified: trunk/libmouse-perl/lib/Mouse.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse.pm?rev=44426&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse.pm (original)
+++ trunk/libmouse-perl/lib/Mouse.pm Sun Sep 20 18:05:18 2009
@@ -4,7 +4,7 @@
use 5.006;
use base 'Exporter';
-our $VERSION = '0.27';
+our $VERSION = '0.29';
use Carp 'confess';
use Scalar::Util 'blessed';
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm?rev=44426&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm Sun Sep 20 18:05:18 2009
@@ -209,8 +209,7 @@
confess "You cannot auto-dereference anything other than a ArrayRef or HashRef on attribute ($name)"
if $args->{auto_deref}
- && $args->{isa} ne 'ArrayRef'
- && $args->{isa} ne 'HashRef';
+ && $args->{isa} !~ /^(?:ArrayRef|HashRef)(?:\[.*\])?$/;
if ($args->{trigger}) {
if (ref($args->{trigger}) eq 'HASH') {
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm?rev=44426&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm Sun Sep 20 18:05:18 2009
@@ -88,7 +88,7 @@
}
if ($should_deref) {
- if (ref($constraint) && $constraint->name eq 'ArrayRef') {
+ if (ref($constraint) && $constraint->name =~ '^ArrayRef\b') {
$accessor .= 'if (wantarray) {
return @{ '.$self.'->{'.$key.'} || [] };
}';
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Role.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Role.pm?rev=44426&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Role.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Role.pm Sun Sep 20 18:05:18 2009
@@ -64,7 +64,7 @@
no strict 'refs';
# Get all the CODE symbol table entries
my @functions =
- grep !/^(?:has|with|around|before|after|augment|inner|override|super|blessed|extends|confess|excludes|meta|requires)$/,
+ grep !/^(?:has|with|around|before|after|augment|inner|override|super|blessed|extends|confess|excludes|requires)$/,
grep { defined &{"${name}::$_"} }
keys %{"${name}::"};
wantarray ? @functions : \@functions;
Modified: trunk/libmouse-perl/lib/Mouse/Tiny.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Tiny.pm?rev=44426&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Tiny.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Tiny.pm Sun Sep 20 18:05:18 2009
@@ -227,7 +227,7 @@
use 5.006;
use base 'Exporter';
-our $VERSION = '0.27';
+our $VERSION = '0.28';
use Carp 'confess';
use Scalar::Util 'blessed';
@@ -654,8 +654,7 @@
confess "You cannot auto-dereference anything other than a ArrayRef or HashRef on attribute ($name)"
if $args->{auto_deref}
- && $args->{isa} ne 'ArrayRef'
- && $args->{isa} ne 'HashRef';
+ && $args->{isa} !~ /^(?:ArrayRef|HashRef)(?:\[.*\])?$/;
if ($args->{trigger}) {
if (ref($args->{trigger}) eq 'HASH') {
@@ -1212,7 +1211,7 @@
}
if ($should_deref) {
- if (ref($constraint) && $constraint->name eq 'ArrayRef') {
+ if (ref($constraint) && $constraint->name =~ '^ArrayRef\b') {
$accessor .= 'if (wantarray) {
return @{ '.$self.'->{'.$key.'} || [] };
}';
Modified: trunk/libmouse-perl/t/030_roles/002_role.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/t/030_roles/002_role.t?rev=44426&op=diff
==============================================================================
--- trunk/libmouse-perl/t/030_roles/002_role.t (original)
+++ trunk/libmouse-perl/t/030_roles/002_role.t Sun Sep 20 18:05:18 2009
@@ -70,7 +70,7 @@
is_deeply(
[ sort $foo_role->get_method_list() ],
- [ 'boo', 'foo' ],
+ [ 'boo', 'foo', 'meta' ],
'... got the right method list');
ok(FooRole->can('foo'), "locally defined methods are still there");
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=44426&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 Sun Sep 20 18:05:18 2009
@@ -32,6 +32,6 @@
die $@ if $@;
is join(',', sort "${class}Class"->meta->get_method_list()), 'foo,meta', "mutable $class";
is join(',', sort "${class}ClassImm"->meta->get_method_list()), 'DESTROY,foo,meta,new', "immutable $class";
- is join(',', sort "${class}Role"->meta->get_method_list()), 'bar', "role $class";
+ is join(',', sort "${class}Role"->meta->get_method_list()), 'bar,meta', "role $class";
}
More information about the Pkg-perl-cvs-commits
mailing list