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

#!perl
use warnings FATAL => 'all';
use strict;
use Test::More tests => 1;

{
    package Thing;

    use Function::Parameters qw(:strict);
    method foo {"wibble"}

    ::is( Thing->foo, "wibble" );
}
Commit	Line	Data
633048d5	1	#!perl
	2	use warnings FATAL => 'all';
	3	use strict;
	4	use Test::More tests => 1;
	5
	6	{
	7	package Thing;
	8
	9	use Function::Parameters qw(:strict);
	10	method foo {"wibble"}
	11
	12	::is( Thing->foo, "wibble" );
	13	}