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