[gitmo/Moose.git] / t / metaclasses / new_object_BUILD.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;

my $called;
{
    package Foo;
    use Moose;

    sub BUILD { $called++ }
}

Foo->new;
is($called, 1, "BUILD called from ->new");
$called = 0;
Foo->meta->new_object;
is($called, 1, "BUILD called from ->meta->new_object");

done_testing;
Commit	Line	Data
a19ae3d7	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More;
	5
	6	my $called;
	7	{
	8	package Foo;
	9	use Moose;
	10
	11	sub BUILD { $called++ }
	12	}
	13
	14	Foo->new;
	15	is($called, 1, "BUILD called from ->new");
	16	$called = 0;
	17	Foo->meta->new_object;
	18	is($called, 1, "BUILD called from ->meta->new_object");
	19
	20	done_testing;