t/metaclasses/new_object_BUILD.t

   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;