r34152 - in /branches/upstream/libmoosex-methodattributes-perl/current: ./ lib/MooseX/ lib/MooseX/MethodAttributes/ lib/MooseX/MethodAttributes/Role/ lib/MooseX/MethodAttributes/Role/AttrContainer/ lib/MooseX/MethodAttributes/Role/Meta/ lib/MooseX/MethodAttributes/Role/Meta/Method/ t/ t/lib/
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Sun Apr 26 08:27:44 UTC 2009
Author: ansgar-guest
Date: Sun Apr 26 08:27:37 2009
New Revision: 34152
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=34152
Log:
[svn-upgrade] Integrating new upstream version, libmoosex-methodattributes-perl (0.08)
Added:
branches/upstream/libmoosex-methodattributes-perl/current/t/catalyst.t
branches/upstream/libmoosex-methodattributes-perl/current/t/catalyst_todo.t
Modified:
branches/upstream/libmoosex-methodattributes-perl/current/Changes
branches/upstream/libmoosex-methodattributes-perl/current/MANIFEST
branches/upstream/libmoosex-methodattributes-perl/current/META.yml
branches/upstream/libmoosex-methodattributes-perl/current/Makefile.PL
branches/upstream/libmoosex-methodattributes-perl/current/README
branches/upstream/libmoosex-methodattributes-perl/current/dist.ini
branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes.pm
branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Inheritable.pm
branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer.pm
branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer/Inheritable.pm
branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Class.pm
branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method.pm
branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/MaybeWrapped.pm
branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/Wrapped.pm
branches/upstream/libmoosex-methodattributes-perl/current/t/lib/BaseClass.pm
branches/upstream/libmoosex-methodattributes-perl/current/t/lib/OtherSubClass.pm
branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClass.pm
branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClassUseBaseAndUseMoose.pm
branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubSubClass.pm
branches/upstream/libmoosex-methodattributes-perl/current/t/lib/TestClass.pm
Modified: branches/upstream/libmoosex-methodattributes-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/Changes?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/Changes (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/Changes Sun Apr 26 08:27:37 2009
@@ -1,3 +1,12 @@
+0.08 Sat, 25 Apr 2009 16:30:00 + 0100
+ * Fix get_nearest_methods_with_attributes to deal with wrapped methods.
+ - Add tests for this, and how Catalyst uses the module
+ * Add TODO tests showing that method metaclass inheritance (or lacktherof)
+ into subclasses causes us to fail to do the right thing.
+
+0.07 Sat, 25 Apr 2009 13:47:05 + 0100
+ * Add the get_nearest_methods_with_attributes method.
+
0.06 Sun, 19 Apr 2009 23:03:06 + 0100
* Fix bug when using base, as Moose doesn't automatically inherit the
method metaclass from your parent class unless you use the 'extends'
Modified: branches/upstream/libmoosex-methodattributes-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/MANIFEST?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/MANIFEST (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/MANIFEST Sun Apr 26 08:27:37 2009
@@ -15,6 +15,8 @@
lib/MooseX/MethodAttributes/Role/Meta/Method/Wrapped.pm
t/basic.t
t/calling.t
+t/catalyst.t
+t/catalyst_todo.t
t/inherited.t
t/inherited_non_moose_multilevel.t
t/lib/BaseClass.pm
Modified: branches/upstream/libmoosex-methodattributes-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/META.yml?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/META.yml (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/META.yml Sun Apr 26 08:27:37 2009
@@ -10,4 +10,4 @@
Moose: 0.70
MooseX::Types: 0.06
namespace::clean: 0
-version: 0.07
+version: 0.08
Modified: branches/upstream/libmoosex-methodattributes-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/Makefile.PL?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/Makefile.PL (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/Makefile.PL Sun Apr 26 08:27:37 2009
@@ -9,7 +9,7 @@
NAME => 'MooseX::MethodAttributes',
AUTHOR => 'Florian\ Ragwitz\ \<rafl\@debian\.org\>\,\ Tomas\ Doran\ \<bobtfish\@bobtfish\.net\>',
ABSTRACT => 'code attribute introspection',
- VERSION => '0.07',
+ VERSION => '0.08',
EXE_FILES => [ qw() ],
(eval { ExtUtils::MakeMaker->VERSION(6.21) } ? (LICENSE => 'perl') : ()),
PREREQ_PM => {
Modified: branches/upstream/libmoosex-methodattributes-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/README?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/README (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/README Sun Apr 26 08:27:37 2009
@@ -1,7 +1,7 @@
This archive contains the distribution MooseX-MethodAttributes, version
-0.07:
+0.08:
code attribute introspection
Modified: branches/upstream/libmoosex-methodattributes-perl/current/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/dist.ini?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/dist.ini (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/dist.ini Sun Apr 26 08:27:37 2009
@@ -1,5 +1,5 @@
name = MooseX-MethodAttributes
-version = 0.07
+version = 0.08
author = Florian Ragwitz <rafl at debian.org>
author = Tomas Doran <bobtfish at bobtfish.net>
license = Perl_5
Modified: branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes.pm?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes.pm Sun Apr 26 08:27:37 2009
@@ -2,7 +2,7 @@
use warnings;
package MooseX::MethodAttributes;
-our $VERSION = '0.07';
+our $VERSION = '0.08';
# ABSTRACT: code attribute introspection
@@ -38,7 +38,7 @@
=head1 VERSION
-version 0.07
+version 0.08
=head1 SYNOPSIS
Modified: branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Inheritable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Inheritable.pm?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Inheritable.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Inheritable.pm Sun Apr 26 08:27:37 2009
@@ -1,5 +1,5 @@
package MooseX::MethodAttributes::Inheritable;
-our $VERSION = '0.07';
+our $VERSION = '0.08';
# ABSTRACT: inheritable code attribute introspection
@@ -21,7 +21,7 @@
=head1 VERSION
-version 0.07
+version 0.08
=head1 SYNOPSIS
Modified: branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer.pm?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer.pm Sun Apr 26 08:27:37 2009
@@ -1,5 +1,5 @@
package MooseX::MethodAttributes::Role::AttrContainer;
-our $VERSION = '0.07';
+our $VERSION = '0.08';
# ABSTRACT: capture code attributes in the class' metaclass
@@ -24,7 +24,7 @@
=head1 VERSION
-version 0.07
+version 0.08
=head1 METHODS
Modified: branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer/Inheritable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer/Inheritable.pm?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer/Inheritable.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer/Inheritable.pm Sun Apr 26 08:27:37 2009
@@ -1,5 +1,5 @@
package MooseX::MethodAttributes::Role::AttrContainer::Inheritable;
-our $VERSION = '0.07';
+our $VERSION = '0.08';
# ABSTRACT: capture code attributes in the automatically initialized metaclass instance
@@ -39,7 +39,7 @@
=head1 VERSION
-version 0.07
+version 0.08
=head1 DESCRIPTION
Modified: branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Class.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Class.pm?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Class.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Class.pm Sun Apr 26 08:27:37 2009
@@ -1,5 +1,5 @@
package MooseX::MethodAttributes::Role::Meta::Class;
-our $VERSION = '0.07';
+our $VERSION = '0.08';
# ABSTRACT: metaclass role for storing code attributes
@@ -80,8 +80,11 @@
sub get_nearest_methods_with_attributes {
my ($self) = @_;
- grep {
- scalar @{ $self->find_method_by_name($_->name)->attributes }
+ map {
+ my $m = $self->find_method_by_name($_->name);
+ my $meth = $m->can('attributes');
+ my $attrs = $meth ? $m->$meth() : [];
+ scalar @{ $attrs } ? ( $m ) : ( );
} $self->get_all_methods_with_attributes;
}
@@ -95,7 +98,7 @@
=head1 VERSION
-version 0.07
+version 0.08
=head1 METHODS
@@ -137,14 +140,19 @@
sub foo : Attr {}
+ sub bar : Attr {}
+
package SubClass;
use base qw/BaseClass/;
sub foo {}
+ after bar => sub {}
+
C<< SubClass->meta->get_all_methods_with_attributes >> will return
C<< BaseClass->meta->get_method('foo') >> for the above example, but
-this method will not.
+this method will not, and will return the wrapped bar method, wheras
+C<< get_all_methods_with_attributes >> will return the original method.
=head1 AUTHORS
Modified: branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method.pm?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method.pm Sun Apr 26 08:27:37 2009
@@ -1,5 +1,5 @@
package MooseX::MethodAttributes::Role::Meta::Method;
-our $VERSION = '0.07';
+our $VERSION = '0.08';
# ABSTRACT: metamethod role allowing code attribute introspection
@@ -34,7 +34,7 @@
=head1 VERSION
-version 0.07
+version 0.08
=head1 ATTRIBUTES
Modified: branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/MaybeWrapped.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/MaybeWrapped.pm?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/MaybeWrapped.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/MaybeWrapped.pm Sun Apr 26 08:27:37 2009
@@ -1,5 +1,5 @@
package MooseX::MethodAttributes::Role::Meta::Method::MaybeWrapped;
-our $VERSION = '0.07';
+our $VERSION = '0.08';
# ABSTRACT: proxy attributes of wrapped methods if their metaclass supports it
@@ -26,7 +26,7 @@
=head1 VERSION
-version 0.07
+version 0.08
=head1 AUTHORS
Modified: branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/Wrapped.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/Wrapped.pm?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/Wrapped.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/Wrapped.pm Sun Apr 26 08:27:37 2009
@@ -1,5 +1,5 @@
package MooseX::MethodAttributes::Role::Meta::Method::Wrapped;
-our $VERSION = '0.07';
+our $VERSION = '0.08';
# ABSTRACT: wrapped metamethod role allowing code attribute introspection
@@ -27,7 +27,7 @@
=head1 VERSION
-version 0.07
+version 0.08
=head1 METHODS
Added: branches/upstream/libmoosex-methodattributes-perl/current/t/catalyst.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/t/catalyst.t?rev=34152&op=file
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/t/catalyst.t (added)
+++ branches/upstream/libmoosex-methodattributes-perl/current/t/catalyst.t Sun Apr 26 08:27:37 2009
@@ -1,0 +1,54 @@
+{
+ package Catalyst::Controller;
+ use Moose;
+ use namespace::clean -except => 'meta';
+ use MooseX::MethodAttributes;
+ BEGIN { extends 'MooseX::MethodAttributes::Inheritable'; }
+}
+{
+ package TestApp::Controller::Moose;
+ use Moose;
+ use MooseX::MethodAttributes;
+ use namespace::clean -except => 'meta';
+ BEGIN { extends qw/Catalyst::Controller/; }
+
+ our $GET_ATTRIBUTE_CALLED = 0;
+ sub get_attribute : Local { $GET_ATTRIBUTE_CALLED++ }
+
+ sub other : Local {}
+}
+{
+ package TestApp::Controller::Moose::MethodModifiers;
+ use Moose;
+ use MooseX::MethodAttributes;
+ BEGIN { extends qw/TestApp::Controller::Moose/; }
+
+ our $GET_ATTRIBUTE_CALLED = 0;
+ after get_attribute => sub { $GET_ATTRIBUTE_CALLED++; }; # Wrapped only, should show up
+
+ sub other : Local {}
+ after other => sub {}; # Wrapped, wrapped should show up.
+}
+
+use Test::More tests => 9;
+use Test::Exception;
+
+my @methods;
+lives_ok {
+ @methods = TestApp::Controller::Moose::MethodModifiers->meta->get_nearest_methods_with_attributes;
+} 'Can get nearest methods';
+
+is @methods, 2;
+
+my $method = (grep { $_->name eq 'get_attribute' } @methods)[0];
+ok $method;
+is $method->body, \&TestApp::Controller::Moose::MethodModifiers::get_attribute;
+is $TestApp::Controller::Moose::GET_ATTRIBUTE_CALLED, 0;
+is $TestApp::Controller::Moose::MethodModifiers::GET_ATTRIBUTE_CALLED, 0;
+$method->body->();
+is $TestApp::Controller::Moose::GET_ATTRIBUTE_CALLED, 1;
+is $TestApp::Controller::Moose::MethodModifiers::GET_ATTRIBUTE_CALLED, 1;
+
+my $other = (grep { $_->name eq 'other' } @methods)[0];
+ok $other;
+
Added: branches/upstream/libmoosex-methodattributes-perl/current/t/catalyst_todo.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/t/catalyst_todo.t?rev=34152&op=file
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/t/catalyst_todo.t (added)
+++ branches/upstream/libmoosex-methodattributes-perl/current/t/catalyst_todo.t Sun Apr 26 08:27:37 2009
@@ -1,0 +1,57 @@
+{
+ package Catalyst::Controller;
+ use Moose;
+ use namespace::clean -except => 'meta';
+ use MooseX::MethodAttributes;
+ BEGIN { extends 'MooseX::MethodAttributes::Inheritable'; }
+}
+{
+ package TestApp::Controller::Moose;
+ use Moose;
+ use namespace::clean -except => 'meta';
+ BEGIN { extends qw/Catalyst::Controller/; }
+
+ our $GET_ATTRIBUTE_CALLED = 0;
+ sub get_attribute : Local { $GET_ATTRIBUTE_CALLED++ }
+
+ sub other : Local {}
+}
+{
+ package TestApp::Controller::Moose::MethodModifiers;
+ use Moose;
+ BEGIN { extends qw/TestApp::Controller::Moose/; }
+
+ our $GET_ATTRIBUTE_CALLED = 0;
+ after get_attribute => sub { $GET_ATTRIBUTE_CALLED++; }; # Wrapped only, should show up
+
+ sub other : Local {}
+ after other => sub {}; # Wrapped, wrapped should show up.
+}
+
+use Test::More tests => 10;
+use Test::Exception;
+
+my @methods;
+lives_ok {
+ @methods = TestApp::Controller::Moose::MethodModifiers->meta->get_nearest_methods_with_attributes;
+} 'Can get nearest methods';
+
+TODO: {
+ local $TODO = 'This should work, but does not, which is why modifiers fail in Cat';
+
+ is @methods, 2;
+
+ my $method = (grep { $_->name eq 'get_attribute' } @methods)[0];
+ ok $method;
+ is eval { $method->body }, \&TestApp::Controller::Moose::MethodModifiers::get_attribute;
+ is $TestApp::Controller::Moose::GET_ATTRIBUTE_CALLED, 0;
+ is $TestApp::Controller::Moose::MethodModifiers::GET_ATTRIBUTE_CALLED, 0;
+ eval { $method->body->(); };
+ ok !$@;
+ is $TestApp::Controller::Moose::GET_ATTRIBUTE_CALLED, 1;
+ is $TestApp::Controller::Moose::MethodModifiers::GET_ATTRIBUTE_CALLED, 1;
+
+ my $other = (grep { $_->name eq 'other' } @methods)[0];
+ ok $other;
+}
+
Modified: branches/upstream/libmoosex-methodattributes-perl/current/t/lib/BaseClass.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/t/lib/BaseClass.pm?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/t/lib/BaseClass.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/t/lib/BaseClass.pm Sun Apr 26 08:27:37 2009
@@ -2,12 +2,12 @@
use warnings;
package BaseClass::Meta::Role;
-our $VERSION = '0.07';
+our $VERSION = '0.08';
use Moose::Role;
package BaseClass;
-our $VERSION = '0.07';
+our $VERSION = '0.08';
use Moose;
Modified: branches/upstream/libmoosex-methodattributes-perl/current/t/lib/OtherSubClass.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/t/lib/OtherSubClass.pm?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/t/lib/OtherSubClass.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/t/lib/OtherSubClass.pm Sun Apr 26 08:27:37 2009
@@ -2,7 +2,7 @@
use warnings;
package OtherSubClass;
-our $VERSION = '0.07';
+our $VERSION = '0.08';
use base qw/BaseClass/;
Modified: branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClass.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClass.pm?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClass.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClass.pm Sun Apr 26 08:27:37 2009
@@ -2,7 +2,7 @@
use warnings;
package SubClass;
-our $VERSION = '0.07';
+our $VERSION = '0.08';
use Moose;
Modified: branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClassUseBaseAndUseMoose.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClassUseBaseAndUseMoose.pm?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClassUseBaseAndUseMoose.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClassUseBaseAndUseMoose.pm Sun Apr 26 08:27:37 2009
@@ -2,7 +2,7 @@
use warnings;
package SubClassUseBaseAndUseMoose;
-our $VERSION = '0.07';
+our $VERSION = '0.08';
use base qw/BaseClass/;
Modified: branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubSubClass.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubSubClass.pm?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubSubClass.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubSubClass.pm Sun Apr 26 08:27:37 2009
@@ -2,7 +2,7 @@
use warnings;
package SubSubClass;
-our $VERSION = '0.07';
+our $VERSION = '0.08';
use base qw/OtherSubClass/;
Modified: branches/upstream/libmoosex-methodattributes-perl/current/t/lib/TestClass.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/t/lib/TestClass.pm?rev=34152&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/t/lib/TestClass.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/t/lib/TestClass.pm Sun Apr 26 08:27:37 2009
@@ -1,5 +1,5 @@
package TestClass;
-our $VERSION = '0.07';
+our $VERSION = '0.08';
use Moose;
@@ -12,7 +12,7 @@
after foo => sub {};
package SubClass;
-our $VERSION = '0.07';
+our $VERSION = '0.08';
use Moose;
More information about the Pkg-perl-cvs-commits
mailing list