r19850 - in /trunk/libmoose-perl: ./ debian/ inc/Module/ inc/Module/Install/ lib/ lib/Moose/ lib/Moose/Cookbook/ t/100_bugs/

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Sun May 11 12:42:04 UTC 2008


Author: gregoa
Date: Sun May 11 12:42:03 2008
New Revision: 19850

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=19850
Log:
New upstream release.

Added:
    trunk/libmoose-perl/inc/Module/AutoInstall.pm
      - copied unchanged from r19849, branches/upstream/libmoose-perl/current/inc/Module/AutoInstall.pm
    trunk/libmoose-perl/inc/Module/Install/AutoInstall.pm
      - copied unchanged from r19849, branches/upstream/libmoose-perl/current/inc/Module/Install/AutoInstall.pm
    trunk/libmoose-perl/inc/Module/Install/Include.pm
      - copied unchanged from r19849, branches/upstream/libmoose-perl/current/inc/Module/Install/Include.pm
    trunk/libmoose-perl/lib/Moose/Cookbook/Recipe11.pod
      - copied unchanged from r19849, branches/upstream/libmoose-perl/current/lib/Moose/Cookbook/Recipe11.pod
    trunk/libmoose-perl/lib/Moose/Cookbook/Recipe7.pod
      - copied unchanged from r19849, branches/upstream/libmoose-perl/current/lib/Moose/Cookbook/Recipe7.pod
    trunk/libmoose-perl/lib/Moose/Cookbook/Recipe9.pod
      - copied unchanged from r19849, branches/upstream/libmoose-perl/current/lib/Moose/Cookbook/Recipe9.pod
    trunk/libmoose-perl/t/100_bugs/012_DEMOLISH_eats_mini.t
      - copied unchanged from r19849, branches/upstream/libmoose-perl/current/t/100_bugs/012_DEMOLISH_eats_mini.t
Removed:
    trunk/libmoose-perl/Build.PL
    trunk/libmoose-perl/inc/Module/Install/Build.pm
Modified:
    trunk/libmoose-perl/Changes
    trunk/libmoose-perl/MANIFEST
    trunk/libmoose-perl/META.yml
    trunk/libmoose-perl/Makefile.PL
    trunk/libmoose-perl/README
    trunk/libmoose-perl/debian/changelog
    trunk/libmoose-perl/lib/Moose.pm
    trunk/libmoose-perl/lib/Moose/Cookbook.pod
    trunk/libmoose-perl/lib/Moose/Cookbook/Recipe3.pod
    trunk/libmoose-perl/lib/Moose/Object.pm
    trunk/libmoose-perl/t/100_bugs/011_DEMOLISH_eats_exceptions.t

Modified: trunk/libmoose-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/Changes?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/Changes (original)
+++ trunk/libmoose-perl/Changes Sun May 11 12:42:03 2008
@@ -1,4 +1,38 @@
 Revision history for Perl extension Moose
+
+0.44 Sat. May 10, 2008
+    * Moose
+      - made make_immutable warning cluck to 
+        show where the error is (thanks mst)
+    
+    * Moose::Object
+      - BUILDALL and DEMOLISHALL now call 
+        ->body when looping through the 
+        methods, to avoid the overloaded
+        method call.
+      - fixed issue where DEMOLISHALL was
+        eating the $@ values, and so not 
+        working correctly, it still kind of
+        eats them, but so does vanilla perl 
+        - added tests for this
+      
+    * Moose::Cookbook::Recipe7
+      - added new recipe for immutable 
+        functionality (thanks Dave Rolsky)
+      
+    * Moose::Cookbook::Recipe9
+      - added new recipe for builder and 
+        lazy_build (thanks Dave Rolsky)
+      
+    * Moose::Cookbook::Recipe1
+      - added new recipe for method aliasing 
+        and exclusion with Roles (thanks Dave Rolsky)
+
+    * t/
+      - fixed Win32 test failure (thanks spicyjack)
+
+    ~ removed Build.PL and Module::Build compat 
+      since Module::Install has done that.
 
 0.43 Wed. April, 30, 2008
     * NOTE TO SELF:

Modified: trunk/libmoose-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/MANIFEST?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/MANIFEST (original)
+++ trunk/libmoose-perl/MANIFEST Sun May 11 12:42:03 2008
@@ -1,11 +1,12 @@
-Build.PL
 Changes
 doap.rdf
+inc/Module/AutoInstall.pm
 inc/Module/Install.pm
+inc/Module/Install/AutoInstall.pm
 inc/Module/Install/Base.pm
-inc/Module/Install/Build.pm
 inc/Module/Install/Can.pm
 inc/Module/Install/Fetch.pm
+inc/Module/Install/Include.pm
 inc/Module/Install/Makefile.pm
 inc/Module/Install/Metadata.pm
 inc/Module/Install/Win32.pm
@@ -15,12 +16,15 @@
 lib/Moose/Cookbook/FAQ.pod
 lib/Moose/Cookbook/Recipe1.pod
 lib/Moose/Cookbook/Recipe10.pod
+lib/Moose/Cookbook/Recipe11.pod
 lib/Moose/Cookbook/Recipe2.pod
 lib/Moose/Cookbook/Recipe21.pod
 lib/Moose/Cookbook/Recipe3.pod
 lib/Moose/Cookbook/Recipe4.pod
 lib/Moose/Cookbook/Recipe5.pod
 lib/Moose/Cookbook/Recipe6.pod
+lib/Moose/Cookbook/Recipe7.pod
+lib/Moose/Cookbook/Recipe9.pod
 lib/Moose/Cookbook/Snack/Types.pod
 lib/Moose/Cookbook/WTF.pod
 lib/Moose/Meta/Attribute.pm
@@ -177,6 +181,7 @@
 t/100_bugs/009_augment_recursion_bug.t
 t/100_bugs/010_immutable_n_default_x2.t
 t/100_bugs/011_DEMOLISH_eats_exceptions.t
+t/100_bugs/012_DEMOLISH_eats_mini.t
 t/200_examples/001_example.t
 t/200_examples/002_example_Moose_POOP.t
 t/200_examples/003_example.t

Modified: trunk/libmoose-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/META.yml?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/META.yml (original)
+++ trunk/libmoose-perl/META.yml Sun May 11 12:42:03 2008
@@ -24,5 +24,5 @@
   Scalar::Util: 1.18
   Sub::Exporter: 0.972
   Sub::Name: 0.02
-tests: t/*.t t/*/*.t
-version: 0.43
+tests: t/*.t t/000_recipes/*.t t/010_basics/*.t t/020_attributes/*.t t/030_roles/*.t t/040_type_constraints/*.t t/050_metaclasses/*.t t/060_compat/*.t t/100_bugs/*.t t/200_examples/*.t t/300_immutable/*.t t/400_moose_util/*.t t/500_test_moose/*.t
+version: 0.44

Modified: trunk/libmoose-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/Makefile.PL?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/Makefile.PL (original)
+++ trunk/libmoose-perl/Makefile.PL Sun May 11 12:42:03 2008
@@ -24,7 +24,9 @@
 build_requires 'Test::Exception' => '0.21';
 build_requires 'Test::LongString';
 
-tests('t/*.t t/*/*.t');
+tests_recursive;
+
+auto_install;
 
 WriteAll();
 

Modified: trunk/libmoose-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/README?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/README (original)
+++ trunk/libmoose-perl/README Sun May 11 12:42:03 2008
@@ -1,4 +1,4 @@
-Moose version 0.41
+Moose version 0.44
 ===========================
 
 See the individual module documentation for more information

Modified: trunk/libmoose-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/debian/changelog?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/debian/changelog (original)
+++ trunk/libmoose-perl/debian/changelog Sun May 11 12:42:03 2008
@@ -1,3 +1,9 @@
+libmoose-perl (0.44-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Sun, 11 May 2008 14:40:12 +0200
+
 libmoose-perl (0.43-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/libmoose-perl/lib/Moose.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose.pm?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose.pm (original)
+++ trunk/libmoose-perl/lib/Moose.pm Sun May 11 12:42:03 2008
@@ -4,11 +4,11 @@
 use strict;
 use warnings;
 
-our $VERSION   = '0.43';
+our $VERSION   = '0.44';
 our $AUTHORITY = 'cpan:STEVAN';
 
 use Scalar::Util 'blessed', 'reftype';
-use Carp         'confess', 'croak';
+use Carp         'confess', 'croak', 'cluck';
 use Sub::Name    'subname';
 
 use Sub::Exporter;
@@ -174,8 +174,8 @@
         make_immutable => sub {
             my $class = $CALLER;
             return subname 'Moose::make_immutable' => sub {
-                warn "The make_immutable keyword has been deprecated, " . 
-                     "please go back to __PACKAGE__->meta->make_immutable\n";
+                cluck "The make_immutable keyword has been deprecated, " . 
+                      "please go back to __PACKAGE__->meta->make_immutable\n";
                 $class->meta->make_immutable(@_);
             };            
         },        
@@ -318,7 +318,7 @@
 =head2 Another object system!?!?
 
 Yes, I know there has been an explosion recently of new ways to
-build object's in Perl 5, most of them based on inside-out objects
+build objects in Perl 5, most of them based on inside-out objects
 and other such things. Moose is different because it is not a new
 object system for Perl 5, but instead an extension of the existing
 object system.

Modified: trunk/libmoose-perl/lib/Moose/Cookbook.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Cookbook.pod?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Cookbook.pod (original)
+++ trunk/libmoose-perl/lib/Moose/Cookbook.pod Sun May 11 12:42:03 2008
@@ -50,9 +50,10 @@
 Demonstrates the use of C<augment> method modifiers, a way of turning
 the usual method overriding style "inside-out".
 
-=item L<Moose::Cookbook::Recipe7> - Making Moose fast with immutable (TODO)
+=item L<Moose::Cookbook::Recipe7> - Making Moose fast with immutable
 
-I<abstract goes here>
+Making a class immutable greatly increases the speed of accessors and
+object construction.
 
 =item L<Moose::Cookbook::Recipe8> - Managing complex relations with trigger (TODO)
 
@@ -60,9 +61,10 @@
 
 Work off of this http://code2.0beta.co.uk/moose/svn/Moose/trunk/t/200_examples/007_Child_Parent_attr_inherit.t
 
-=item L<Moose::Cookbook::Recipe9> - ?? 
+=item L<Moose::Cookbook::Recipe9> - Builder methods and lazy_build
 
-I<abstract goes here>
+The builder feature provides an inheritable and role-composable way to
+provide a default attribute value.
 
 =back
 
@@ -76,9 +78,12 @@
 mix-ins. Roles provide a method of code re-use which is orthogonal to
 subclassing.
 
-=item L<Moose::Cookbook::Recipe11> - Advanced Role Composition (TODO)
+=item L<Moose::Cookbook::Recipe11> - Advanced Role Composition - method exclusion and aliasing
 
-I<abstract goes here>
+Sometimes you just want to include part of a role in your
+class. Sometimes you want the whole role but one if its methods
+conflicts with one in your class. With method exclusion and aliasing,
+you can work around these problems.
 
 =item L<Moose::Cookbook::Recipe12> - Runtime Role Composition (TODO)
 

Modified: trunk/libmoose-perl/lib/Moose/Cookbook/Recipe3.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Cookbook/Recipe3.pod?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Cookbook/Recipe3.pod (original)
+++ trunk/libmoose-perl/lib/Moose/Cookbook/Recipe3.pod Sun May 11 12:42:03 2008
@@ -219,6 +219,9 @@
 You I<can> use the C<default> option without the C<lazy> option if 
 you like, as we showed in the second recipe.
 
+And actually, you can use C<builder> instead of C<default>. See
+L<Moose::Cookbook::Recipe9> for details.
+
 =back
 
 =head1 AUTHOR

Modified: trunk/libmoose-perl/lib/Moose/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Object.pm?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Object.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Object.pm Sun May 11 12:42:03 2008
@@ -9,7 +9,7 @@
 
 use Carp 'confess';
 
-our $VERSION   = '0.12';
+our $VERSION   = '0.13';
 our $AUTHORITY = 'cpan:STEVAN';
 
 sub new {
@@ -37,25 +37,34 @@
     return unless $_[0]->can('BUILD');    
     my ($self, $params) = @_;
     foreach my $method (reverse $self->meta->find_all_methods_by_name('BUILD')) {
-        $method->{code}->($self, $params);
+        $method->{code}->body->($self, $params);
     }
 }
 
 sub DEMOLISHALL {
+    my $self = shift;    
+    foreach my $method ($self->meta->find_all_methods_by_name('DEMOLISH')) {
+        $method->{code}->body->($self);
+    }
+}
+
+sub DESTROY { 
     # NOTE: we ask Perl if we even 
     # need to do this first, to avoid
     # extra meta level calls    
-    return unless $_[0]->can('DEMOLISH');    
-    my $self = shift;    
-    {
+    return unless $_[0]->can('DEMOLISH');
+    # if we have an exception here ...
+    if ($@) {
+        # localize the $@ ...
         local $@;
-        foreach my $method ($self->meta->find_all_methods_by_name('DEMOLISH')) {
-            $method->{code}->($self);
-        }
-    }    
+        # run DEMOLISHALL ourselves, ...
+        $_[0]->DEMOLISHALL;
+        # and return ...
+        return;
+    }
+    # otherwise it is normal destruction
+    goto &DEMOLISHALL;
 }
-
-sub DESTROY { goto &DEMOLISHALL }
 
 # new does() methods will be created 
 # as approiate see Moose::Meta::Role

Modified: trunk/libmoose-perl/t/100_bugs/011_DEMOLISH_eats_exceptions.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/t/100_bugs/011_DEMOLISH_eats_exceptions.t?rev=19850&op=diff
==============================================================================
--- trunk/libmoose-perl/t/100_bugs/011_DEMOLISH_eats_exceptions.t (original)
+++ trunk/libmoose-perl/t/100_bugs/011_DEMOLISH_eats_exceptions.t Sun May 11 12:42:03 2008
@@ -14,8 +14,8 @@
 
 subtype 'FilePath'
     => as 'Str'
-    => where { $_ =~ m#^(/[a-zA-Z0-9_.-]+)+$#; };
-
+    => where { $_ =~ m#^(/[a-zA-Z0-9_.-]+)+$#
+                || $_ =~ m#^([c-zC-Z]:/[a-zA-Z0-9_.-]+)# };
 {
     package Baz;
     use Moose;




More information about the Pkg-perl-cvs-commits mailing list