isa checks on builders
[gitmo/Moo.git] / t / global-destruction-helper.pl
1 use strictures 1;
2 use lib 'lib';
3 no warnings 'once'; # work around 5.6.2
4
5 {
6     package Foo;
7     use Moo;
8
9     sub DEMOLISH {
10         my $self = shift;
11         my ($igd) = @_;
12
13         print $igd ? "true" : "false", "\n";
14     }
15 }
16
17 our $foo = Foo->new;