[p5sagit/Function-Parameters.git] / t / foreign / Method-Signatures / anon.t

#!perl
use strict;
use warnings FATAL => 'all';

use Test::More 'no_plan';

{
    package Stuff;

    use Test::More;
    use Function::Parameters qw(:strict);

    method echo($arg) {
        return $arg
    }

    my $method = method ($arg) {
        return $self->echo($arg)
    };

    is( Stuff->$method("foo"), "foo" );
}
Commit	Line	Data
633048d5	1	#!perl
	2	use strict;
	3	use warnings FATAL => 'all';
	4
	5	use Test::More 'no_plan';
	6
	7	{
	8	package Stuff;
	9
	10	use Test::More;
	11	use Function::Parameters qw(:strict);
	12
	13	method echo($arg) {
	14	return $arg
	15	}
	16
	17	my $method = method ($arg) {
	18	return $self->echo($arg)
	19	};
	20
	21	is( Stuff->$method("foo"), "foo" );
	22	}