From: Stevan Little <stevan.little@iinteractive.com>
Date: Fri, 14 Jul 2006 01:50:21 +0000 (+0000)
Subject: foo
X-Git-Tag: 0_12~21^2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=193ffeb834d268eec50474eaef59b6d54dbf4459;p=gitmo%2FMoose.git

foo
---

diff --git a/lib/Moose/Role.pm b/lib/Moose/Role.pm
index c4b90c0..58d2b4b 100644
--- a/lib/Moose/Role.pm
+++ b/lib/Moose/Role.pm
@@ -97,24 +97,18 @@ use Moose::Util::TypeConstraints;
             my $meta = _find_meta();
             return subname 'Moose::Role::before' => sub (@&) { 
                 confess "Moose::Role does not currently support 'before'";
-		        my $code = pop @_;
-		        $meta->add_before_method_modifier($_, $code) for @_;
 	        };
 	    },
         after => sub {
             my $meta = _find_meta();
             return subname 'Moose::Role::after' => sub (@&) { 
                 confess "Moose::Role does not currently support 'after'";
-		        my $code = pop @_;
-		        $meta->add_after_method_modifier($_, $code) for @_;
 	        };
 	    },
         around => sub {
             my $meta = _find_meta();
             return subname 'Moose::Role::around' => sub (@&) { 
                 confess "Moose::Role does not currently support 'around'";
-		        my $code = pop @_;
-		        $meta->add_around_method_modifier($_, $code) for @_;
 	        };
 	    },
 	    super => sub {
diff --git a/t/049_augment_and_inner_in_roles.t b/t/049_augment_and_inner_in_roles.t
deleted file mode 100644
index 9fd8dce..0000000
--- a/t/049_augment_and_inner_in_roles.t
+++ /dev/null
@@ -1,79 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More;
-
-BEGIN {
-    plan skip_all => "This test is not correct,.. it needs work";        
-    plan tests => 15;    
-}
-
-
-{
-    package Base;
-    use Moose::Role;
-
-    sub method {
-        "outer( " .( eval { inner() } || "" ). ")";
-    };
-
-    package SubRole;
-    use Moose::Role;
-
-    with "Base";
-
-    eval {
-        augment method => sub {
-            "inner from role";
-        };
-    };
-
-    ::ok( !$@, "can call augment in a role that has the parent method" );
-
-    package ClassWithRole;
-    use Moose;
-    with "SubRole";
-
-    package ClassWithoutRole;
-    use Moose;
-    with "Base";
-
-    eval {
-        augment method => sub {
-            "inner from class";
-        };
-    };
-
-    ::ok( !$@, "class can augment a method that comes from a role" );
-
-    package UnrelatedRole;
-    use Moose::Role;
-
-    eval {
-        augment method => sub {
-            "inner from unrelated role";
-        };
-    };
-
-    ::ok( !$@, "can call augment in a role that has does not have the parent method" );
-
-    package ClassWithTwoRoles;
-    use Moose;
-
-    with qw/Base UnrelatedRole/;
-}
-
-foreach my $class (qw/ClassWithoutRole ClassWithRole ClassWithTwoRoles/) {
-    can_ok( $class, "method" );
-
-    ok( $class->does("Base"), "$class does Base" );
-
-    like( $class->method, qr/^outer\( .* \)$/, "outer method invoked" );
-}
-
-is( ClassWithoutRole->method, "outer( inner from class )", "composition of class + base role" );
-is( ClassWithRole->method, "outer( inner from role )", "composition of class + base role + related role" );
-is( ClassWithTwoRoles->method, "outer( inner from unrelated role )", "composition of class + base role + mixin role" );
-