r19478 - in /trunk/libmoose-perl: Changes META.yml debian/changelog debian/rules lib/Moose.pm lib/Moose/Meta/Attribute.pm

[eloy at users.alioth.debian.org]

Author: eloy
Date: Tue May  6 08:43:45 2008
New Revision: 19478

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=19478
Log:
  * New upstream release
  * debian/rules: use simple example not minimal


Modified:
    trunk/libmoose-perl/Changes
    trunk/libmoose-perl/META.yml
    trunk/libmoose-perl/debian/changelog
    trunk/libmoose-perl/debian/rules
    trunk/libmoose-perl/lib/Moose.pm
    trunk/libmoose-perl/lib/Moose/Meta/Attribute.pm

Modified: trunk/libmoose-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/Changes?rev=19478&op=diff
==============================================================================
--- trunk/libmoose-perl/Changes (original)
+++ trunk/libmoose-perl/Changes Tue May  6 08:43:45 2008
@@ -1,4 +1,13 @@
 Revision history for Perl extension Moose
+
+0.43 Wed. April, 30, 2008
+    * NOTE TO SELF:
+        drink more coffee before 
+        doing release engineering
+      
+    - whoops, forgot to do the smolder tests, 
+      and we broke some of the custom meta-attr
+      modules. This fixes that.
 
 0.42 Mon. April 28, 2008
     - some bad tests slipped by, nothing else 

Modified: trunk/libmoose-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/META.yml?rev=19478&op=diff
==============================================================================
--- trunk/libmoose-perl/META.yml (original)
+++ trunk/libmoose-perl/META.yml Tue May  6 08:43:45 2008
@@ -25,4 +25,4 @@
   Sub::Exporter: 0.972
   Sub::Name: 0.02
 tests: t/*.t t/*/*.t
-version: 0.42
+version: 0.43

Modified: trunk/libmoose-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/debian/changelog?rev=19478&op=diff
==============================================================================
--- trunk/libmoose-perl/debian/changelog (original)
+++ trunk/libmoose-perl/debian/changelog Tue May  6 08:43:45 2008
@@ -1,3 +1,10 @@
+libmoose-perl (0.43-1) UNRELEASED; urgency=low
+
+  * New upstream release
+  * debian/rules: use simple example not minimal
+
+ -- Krzysztof Krzyżaniak (eloy) <eloy at debian.org>  Tue, 06 May 2008 10:41:55 +0200
+
 libmoose-perl (0.42-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/libmoose-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/debian/rules?rev=19478&op=diff
==============================================================================
--- trunk/libmoose-perl/debian/rules (original)
+++ trunk/libmoose-perl/debian/rules Tue May  6 08:43:45 2008
@@ -1,3 +1,18 @@
 #!/usr/bin/make -f
-%:
-	dh $@
+
+build:
+	dh build
+
+clean:
+	dh clean
+
+install: build
+	dh install
+
+binary-arch: install
+	dh binary-arch
+
+binary-indep: install
+	dh binary-indep
+
+binary: binary-arch binary-indep

Modified: trunk/libmoose-perl/lib/Moose.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose.pm?rev=19478&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose.pm (original)
+++ trunk/libmoose-perl/lib/Moose.pm Tue May  6 08:43:45 2008
@@ -4,7 +4,7 @@
 use strict;
 use warnings;
 
-our $VERSION   = '0.42';
+our $VERSION   = '0.43';
 our $AUTHORITY = 'cpan:STEVAN';
 
 use Scalar::Util 'blessed', 'reftype';
@@ -723,6 +723,17 @@
 You are allowed to B<add> a new C<builder> definition, but you are B<not>
 allowed to I<change> one.
 
+=item I<metaclass>
+
+You are allowed to B<add> a new C<metaclass> definition, but you are
+B<not> allowed to I<change> one.
+
+=item I<traits>
+
+You are allowed to B<add> additional traits to the C<traits> definition.
+These traits will be composed into the attribute, but pre-existing traits
+B<are not> overridden, or removed.
+
 =back
 
 =item B<before $name|@names =E<gt> sub { ... }>

Modified: trunk/libmoose-perl/lib/Moose/Meta/Attribute.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Attribute.pm?rev=19478&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Attribute.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Attribute.pm Tue May  6 08:43:45 2008
@@ -9,7 +9,7 @@
 use Sub::Name    'subname';
 use overload     ();
 
-our $VERSION   = '0.22';
+our $VERSION   = '0.23';
 our $AUTHORITY = 'cpan:STEVAN';
 
 use Moose::Meta::Method::Accessor;
@@ -154,13 +154,19 @@
         delete $options{does};
     }    
 
-    ( $actual_options{metaclass}, my @traits ) = $self->interpolate_class(%options);
-
-    my %seen;
-    my @all_traits = grep { $seen{$_}++ } @{ $self->applied_traits || [] }, @traits;
-    $actual_options{traits} = \@all_traits if @all_traits;
-
-    delete @options{qw(metaclass traits)};
+    # NOTE:
+    # this doesn't apply to Class::MOP::Attributes, 
+    # so we can ignore it for them.
+    # - SL
+    if ($self->can('interpolate_class')) {
+        ( $actual_options{metaclass}, my @traits ) = $self->interpolate_class(%options);
+
+        my %seen;
+        my @all_traits = grep { $seen{$_}++ } @{ $self->applied_traits || [] }, @traits;
+        $actual_options{traits} = \@all_traits if @all_traits;
+
+        delete @options{qw(metaclass traits)};
+    }
 
     (scalar keys %options == 0)
         || confess "Illegal inherited options => (" . (join ', ' => keys %options) . ")";