[gentoo-commits] proj/perl-overlay:master commit in: dev-perl/MooseX-ClassAttribute/files/0.23/, dev-perl/MooseX-ClassAttribute/

[gentoo-commits] proj/perl-overlay:master commit in: dev-perl/MooseX-ClassAttribute/files/0.23/, dev-perl/MooseX-ClassAttribute/

[Kent Fredric]

commit:     b908a17ae1bb9bf139d1f0abda820d40583be89d
Author:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
AuthorDate: Tue Feb 15 02:26:24 2011 +0000
Commit:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
CommitDate: Tue Feb 15 02:26:24 2011 +0000
URL:        http://git.overlays.gentoo.org/gitweb/?p=proj/perl-overlay.git;a=commit;h=b908a17a

[+r1] MooseX-ClassAttribute fixed for Moose 2.0

(Portage version: 2.2.0_alpha23/git/Linux x86_64, RepoMan options: --force, signed Manifest commit with key 0A0CB301)

---
 dev-perl/MooseX-ClassAttribute/ChangeLog           |    6 ++
 .../MooseX-ClassAttribute-0.230-r1.ebuild          |   31 ++++++++++
 .../files/0.23/0001_Moose2.patch                   |   62 ++++++++++++++++++++
 3 files changed, 99 insertions(+), 0 deletions(-)

diff --git a/dev-perl/MooseX-ClassAttribute/ChangeLog b/dev-perl/MooseX-ClassAttribute/ChangeLog
index 76aeaf5..9229f3d 100644
--- a/dev-perl/MooseX-ClassAttribute/ChangeLog
+++ b/dev-perl/MooseX-ClassAttribute/ChangeLog
@@ -2,6 +2,12 @@
 # Copyright 1999-2011 Gentoo Foundation; Distributed under the GPL v2
 # $Header: /var/cvsroot/gentoo-x86/dev-perl/MooseX-ClassAttribute/ChangeLog,v 1.13 2011/01/14 16:59:44 tove Exp $
 
+*MooseX-ClassAttribute-0.230-r1 (15 Feb 2011)
+
+  15 Feb 2011; Kent Fredric <kentfredric@gmail.com>
+  +files/0.23/0001_Moose2.patch, +MooseX-ClassAttribute-0.230-r1.ebuild:
+  Fix for Moose2.0 
+
 *MooseX-ClassAttribute-0.230 (15 Feb 2011)
 
   15 Feb 2011; Kent Fredric <kentfredric@gmail.com>

diff --git a/dev-perl/MooseX-ClassAttribute/MooseX-ClassAttribute-0.230-r1.ebuild b/dev-perl/MooseX-ClassAttribute/MooseX-ClassAttribute-0.230-r1.ebuild
new file mode 100644
index 0000000..7b4124d
--- /dev/null
+++ b/dev-perl/MooseX-ClassAttribute/MooseX-ClassAttribute-0.230-r1.ebuild
@@ -0,0 +1,31 @@
+# Copyright 1999-2011 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/dev-perl/MooseX-ClassAttribute/MooseX-ClassAttribute-0.230.ebuild,v 1.1 2011/02/14 08:01:45 tove Exp $
+
+EAPI=3
+
+MODULE_AUTHOR=DROLSKY
+MODULE_VERSION=0.23
+inherit perl-module
+
+DESCRIPTION="Declare class attributes Moose-style"
+
+LICENSE="Artistic-2"
+SLOT="0"
+KEYWORDS="~amd64 ~x86"
+IUSE="test"
+
+PATCHES=(
+	"${FILESDIR}/${MODULE_VERSION}/0001_Moose2.patch"
+)
+
+RDEPEND=">=dev-perl/Moose-1.990
+	>=dev-perl/namespace-autoclean-0.11
+	>=dev-perl/namespace-clean-0.200"
+DEPEND="${RDEPEND}
+	>=virtual/perl-ExtUtils-MakeMaker-6.31
+	test? ( >=virtual/perl-Test-Simple-0.88
+		dev-perl/Test-Fatal
+		>=dev-perl/Test-Requires-0.05 )"
+
+SRC_TEST=do

diff --git a/dev-perl/MooseX-ClassAttribute/files/0.23/0001_Moose2.patch b/dev-perl/MooseX-ClassAttribute/files/0.23/0001_Moose2.patch
new file mode 100644
index 0000000..7aaf4a1
--- /dev/null
+++ b/dev-perl/MooseX-ClassAttribute/files/0.23/0001_Moose2.patch
@@ -0,0 +1,62 @@
+diff --git a/MooseX-ClassAttribute-0.21/lib/MooseX/ClassAttribute/Trait/Attribute.pm b/MooseX-ClassAttribute-0.21b/lib/MooseX/ClassAttribute/Trait/Attribute.pm
+index 131460a..08354be 100644
+--- a/MooseX-ClassAttribute-0.21/lib/MooseX/ClassAttribute/Trait/Attribute.pm
++++ b/MooseX-ClassAttribute-0.21b/lib/MooseX/ClassAttribute/Trait/Attribute.pm
+@@ -122,16 +122,26 @@ around 'clear_value' => sub {
+         ->clear_class_attribute_value( $self->name() );
+ };
+ 
+-around 'inline_get' => sub {
+-    shift;
++override '_inline_instance_get' => sub {
+     my $self = shift;
+ 
+     return $self->associated_class()
+         ->inline_get_class_slot_value( $self->slots() );
+ };
+ 
+-around 'inline_set' => sub {
+-    shift;
++override '_inline_weaken_value' => sub {
++    my $self = shift;
++    my ($instance,$value) = @_;
++    return unless $self->is_weak_ref;
++
++    my $mi = $self->associated_class->get_meta_instance;
++    return (
++        $self->associated_class->inline_weaken_class_slot_value( $self->slots(), $value ),
++            'if ref ' . $value . ';',
++    );
++};
++
++override '_inline_instance_set' => sub {
+     my $self  = shift;
+     shift;
+     my $value = shift;
+@@ -140,24 +150,18 @@ around 'inline_set' => sub {
+ 
+     my $code
+         = $meta->inline_set_class_slot_value( $self->slots(), $value ) . ";";
+-    $code
+-        .= $meta->inline_weaken_class_slot_value( $self->slots(), $value )
+-        . "    if ref $value;"
+-        if $self->is_weak_ref();
+ 
+     return $code;
+ };
+ 
+-around 'inline_has' => sub {
+-    shift;
++override '_inline_instance_has' => sub {
+     my $self = shift;
+ 
+     return $self->associated_class()
+         ->inline_is_class_slot_initialized( $self->slots() );
+ };
+ 
+-around 'inline_clear' => sub {
+-    shift;
++override '_inline_clear_value' => sub {
+     my $self = shift;
+ 
+     return $self->associated_class()