[gitmo/Mouse.git] / t / 050_metaclasses / 052_new_object_BUILD.t

#!/usr/bin/env perl
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use t::lib::MooseCompat;
use strict;
use warnings;
use Test::More;

my $called;
{
    package Foo;
    use Mouse;

    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
6217087a	1	#!/usr/bin/env perl
	2	# This is automatically generated by author/import-moose-test.pl.
	3	# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
	4	use t::lib::MooseCompat;
	5	use strict;
	6	use warnings;
	7	use Test::More;
	8
	9	my $called;
	10	{
	11	package Foo;
	12	use Mouse;
	13
	14	sub BUILD { $called++ }
	15	}
	16
	17	Foo->new;
	18	is($called, 1, "BUILD called from ->new");
	19	$called = 0;
	20	Foo->meta->new_object;
	21	is($called, 1, "BUILD called from ->meta->new_object");
	22
	23	done_testing;