r29333 - in /branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current: Changes META.yml Makefile.PL lib/MooseX/Emulate/Class/Accessor/Fast.pm

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Mon Jan 5 15:48:49 UTC 2009


Author: gregoa
Date: Mon Jan  5 15:48:46 2009
New Revision: 29333

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29333
Log:
[svn-upgrade] Integrating new upstream version, libmoosex-emulate-class-accessor-fast-perl (0.00701)

Modified:
    branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/Changes
    branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/META.yml
    branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/Makefile.PL
    branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/lib/MooseX/Emulate/Class/Accessor/Fast.pm

Modified: branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/Changes?rev=29333&op=diff
==============================================================================
--- branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/Changes (original)
+++ branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/Changes Mon Jan  5 15:48:46 2009
@@ -1,3 +1,7 @@
+0.00701    Jan 02, 2008
+          - Better errors when trying to modify an immutable class
+          - Fix typo in Makefile.PL description
+          - Missing dep in Makefile.PL (rafl)
 0.00700    Dec 29, 2008
           - Creating a new accessor with the same name as an old one would result in
             a new attribute with no reader/writer/accessor. Reported by t0m

Modified: branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/META.yml?rev=29333&op=diff
==============================================================================
--- branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/META.yml (original)
+++ branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/META.yml Mon Jan  5 15:48:46 2009
@@ -1,5 +1,5 @@
 ---
-abstract: 'Emnulate Class::Accessor::Fast using attributes'
+abstract: 'Emulate Class::Accessor::Fast using attributes'
 author:
   - 'Guillermo Roditi (groditi) <groditi at cpan.org>'
 build_requires:
@@ -17,6 +17,7 @@
     - t
 requires:
   Moose: 0.31
+  namespace::clean: 0
 resources:
   license: http://dev.perl.org/licenses/
-version: 0.00700
+version: 0.00701

Modified: branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/Makefile.PL?rev=29333&op=diff
==============================================================================
--- branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/Makefile.PL (original)
+++ branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/Makefile.PL Mon Jan  5 15:48:46 2009
@@ -5,11 +5,12 @@
 
 # Define metadata
 name 'MooseX-Emulate-Class-Accessor-Fast';
-abstract 'Emnulate Class::Accessor::Fast using attributes';
+abstract 'Emulate Class::Accessor::Fast using attributes';
 all_from 'lib/MooseX/Emulate/Class/Accessor/Fast.pm';
 
 # Specific dependencies
 requires 'Moose' => '0.31';
+requires 'namespace::clean' => 0;
 build_requires 'Test::More' => 0;
 
 WriteAll;

Modified: branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/lib/MooseX/Emulate/Class/Accessor/Fast.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/lib/MooseX/Emulate/Class/Accessor/Fast.pm?rev=29333&op=diff
==============================================================================
--- branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/lib/MooseX/Emulate/Class/Accessor/Fast.pm (original)
+++ branches/upstream/libmoosex-emulate-class-accessor-fast-perl/current/lib/MooseX/Emulate/Class/Accessor/Fast.pm Mon Jan  5 15:48:46 2009
@@ -4,7 +4,7 @@
 use Class::MOP ();
 use Scalar::Util ();
 
-our $VERSION = '0.00700';
+our $VERSION = '0.00701';
 
 =head1 NAME
 
@@ -102,6 +102,11 @@
 sub mk_accessors{
   my $self = shift;
   my $meta = $locate_metaclass->($self);
+  my $class = $meta->name;
+  confess("You are trying to modify ${class}, which has been made immutable, this is ".
+    "not supported. Try subclassing ${class}, rather than monkeypatching it")
+    if $meta->is_immutable;
+
   for my $attr_name (@_){
     $meta->remove_attribute($attr_name)
       if $meta->find_attribute_by_name($attr_name);
@@ -135,6 +140,10 @@
 sub mk_ro_accessors{
   my $self = shift;
   my $meta = $locate_metaclass->($self);
+  my $class = $meta->name;
+  confess("You are trying to modify ${class}, which has been made immutable, this is ".
+    "not supported. Try subclassing ${class}, rather than monkeypatching it")
+    if $meta->is_immutable;
   for my $attr_name (@_){
     $meta->remove_attribute($attr_name)
       if $meta->find_attribute_by_name($attr_name);
@@ -158,6 +167,10 @@
 sub mk_wo_accessors{
   my $self = shift;
   my $meta = $locate_metaclass->($self);
+  my $class = $meta->name;
+  confess("You are trying to modify ${class}, which has been made immutable, this is ".
+    "not supported. Try subclassing ${class}, rather than monkeypatching it")
+    if $meta->is_immutable;
   for my $attr_name (@_){
     $meta->remove_attribute($attr_name)
       if $meta->find_attribute_by_name($attr_name);




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