[gitmo/Moose.git] / t / 070_native_traits / 209_trait_code.t

use strict;
use warnings;

use Test::More tests => 2;

{
    package Thingy;
    use Moose;

    has callback => (
        traits => ['Code'],
        is     => 'ro',
        isa    => 'CodeRef',
        required => 1,
        handles => { 'invoke_callback' => 'execute' },
    );
}

my $i = 0;
my $thingy = Thingy->new(callback => sub { ++$i });

is($i, 0);
$thingy->invoke_callback;
is($i, 1);
Commit	Line	Data
cdf3cae6	1	use strict;
	2	use warnings;
	3
	4	use Test::More tests => 2;
	5
	6	{
	7	package Thingy;
	8	use Moose;
	9
	10	has callback => (
	11	traits => ['Code'],
	12	is => 'ro',
	13	isa => 'CodeRef',
	14	required => 1,
	15	handles => { 'invoke_callback' => 'execute' },
	16	);
	17	}
	18
	19	my $i = 0;
	20	my $thingy = Thingy->new(callback => sub { ++$i });
	21
	22	is($i, 0);
	23	$thingy->invoke_callback;
	24	is($i, 1);