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

#!/usr/bin/env perl

use strict;
use warnings;
no warnings 'once'; # work around 5.6.2

{
    package Foo;
    use Moo;

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

        print $igd || 0, "\n";
    }
}

our $foo = Foo->new;
Commit	Line	Data
c2cc003f	1	#!/usr/bin/env perl
	2
	3	use strict;
	4	use warnings;
	5	no warnings 'once'; # work around 5.6.2
	6
	7	{
	8	package Foo;
	9	use Moo;
	10
	11	sub DEMOLISH {
	12	my $self = shift;
	13	my ($igd) = @_;
	14
	15	print $igd \|\| 0, "\n";
	16	}
	17	}
	18
	19	our $foo = Foo->new;