[p5sagit/Function-Parameters.git] / t / foreign / MooseX-Method-Signatures / sigs-optional.t

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

{
    package Optional;
    use Function::Parameters;
    method foo ($class: $arg) {
        $arg;
    }

    method bar ($class: $hr = {}) {
        ++$hr->{bar};
    }
}

is( Optional->foo(), undef);
is( Optional->foo(1), 1);
is( Optional->bar(), 1);
is( Optional->bar({bar=>1}), 2);
Commit	Line	Data
595edbcf	1	#!perl
	2	use strict;
	3	use warnings FATAL => 'all';
	4	use Test::More tests => 4;
	5
	6	{
	7	package Optional;
	8	use Function::Parameters;
	9	method foo ($class: $arg) {
	10	$arg;
	11	}
	12
	13	method bar ($class: $hr = {}) {
	14	++$hr->{bar};
	15	}
	16	}
	17
	18	is( Optional->foo(), undef);
	19	is( Optional->foo(1), 1);
	20	is( Optional->bar(), 1);
	21	is( Optional->bar({bar=>1}), 2);