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