trAvis - MANAGER
Edit File: 052_new_object_BUILD.t
#!/usr/bin/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;