[gitmo/Moo.git] / t / global-destruction-helper.pl

use strictures 1;
use lib 'lib';
no warnings 'once'; # work around 5.6.2

{
    package Foo;
    use Moo;

    sub DEMOLISH {
        my $self = shift;
        my ($igd) = @_;

        print $igd ? "true" : "false", "\n";
    }
}

our $foo = Foo->new;
Commit	Line	Data
75e99e0b	1	use strictures 1;
75e99e0b	2	use lib 'lib';
c2cc003f	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
75e99e0b	13	print $igd ? "true" : "false", "\n";
c2cc003f	14	}
	15	}
	16
	17	our $foo = Foo->new;