X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F01basic.t;h=f1b138f7115245c2839e07f470d7ac51cefa9907;hb=9d1b22e38282b95ee984108bbef40a6284b243a2;hp=58d22796e4fa91d51afeebbf975b6a55d855580a;hpb=9e15d0fb6c450012ea031b97986ff65621c40747;p=p5sagit%2FObject-Tap.git diff --git a/t/01basic.t b/t/01basic.t index 58d2279..f1b138f 100644 --- a/t/01basic.t +++ b/t/01basic.t @@ -14,3 +14,5 @@ is($tapped, 'Foo one', 'subref tap'); is(Foo->$_tap(bar => 'two'), 'Foo', 'invocant returned'); is($tapped, 'Foo two', 'method name tap'); + +Foo->$_tap(sub { is($_[0], $_, '$_ aliased to object') });