using :lvalue subs breaks the debugger, so I added a inc_offset method to Context...

[p5sagit/Devel-Declare.git] / t / methinstaller-simple.t

diff --git a/t/methinstaller-simple.t b/t/methinstaller-simple.t
index c588bea..62400ee 100644 (file)
--- a/t/methinstaller-simple.t
+++ b/t/methinstaller-simple.t
@@ -66,7 +66,7 @@ my ($test_method1, $test_method2, @test_list);
 
   @test_list = (method { 1 }, sub { 2 }, method () { 3 }, sub { 4 });
 
-  method leftie :lvalue { $self->{attributes} };
+  method leftie($left) : method { $self->{left} ||= $left; $self->{left} };
 }
 
 use Test::More 'no_plan';
@@ -81,7 +81,7 @@ is($o->foo('yay'), 'DeclareTest: Foo: yay', 'method with argument ok');
 
 is($o->main, 'main', 'declaration of package named method ok');
 
-$o->leftie = 'attributes work';
+$o->leftie( 'attributes work' );
 is($o->leftie, 'attributes work', 'code attributes intact');
 
 $o->upgrade;