bump version
[gitmo/Moo.git] / t / global-destruction-helper.pl
CommitLineData
75e99e0b 1use strictures 1;
2use lib 'lib';
c2cc003f 3no 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
75e99e0b 13 print $igd ? "true" : "false", "\n";
c2cc003f 14 }
15}
16
17our $foo = Foo->new;