X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fforeign%2FMethod-Signatures%2Finvocant.t;fp=t%2Fforeign%2FMethod-Signatures%2Finvocant.t;h=4242aee97b8880bf441d4ecb57a96f7adc1679d2;hb=98e6239b969281c227be6ede859054786dd7b933;hp=3d532410bd4d56a830962805e326f290668b8e78;hpb=e158cf8f49978f42fb2380d3f84c5df963a39a3f;p=p5sagit%2FFunction-Parameters.git diff --git a/t/foreign/Method-Signatures/invocant.t b/t/foreign/Method-Signatures/invocant.t index 3d53241..4242aee 100644 --- a/t/foreign/Method-Signatures/invocant.t +++ b/t/foreign/Method-Signatures/invocant.t @@ -39,9 +39,9 @@ our $skip_no_invocants; $self->bar($arg); } -# method no_invocant_named_param($arg) { -# $self->bar($arg); -# } + method no_invocant_named_param(:$arg) { + $self->bar($arg); + } }; is $@, '', 'compiles without invocant'; @@ -64,4 +64,4 @@ is( Stuff->without_space(42), 42 ); my $stuff = Stuff->new; is( $stuff->no_invocant_class_type(Foo::Bar->new), 'Foo::Bar' ); -#is( $stuff->no_invocant_named_param(arg => Foo->new), 'Foo' ); +is( $stuff->no_invocant_named_param(arg => Foo->new), 'Foo' );