[gitmo/Mouse.git] / t / 010_basics / 020-global-destruction-helper.pl

#!/usr/bin/perl
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use t::lib::MooseCompat;

use strict;
use warnings;


{
    package Foo;
    use Mouse;

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

        print $igd;
    }
}

{
    package Bar;
    use Mouse;

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

        print $igd;
    }

    __PACKAGE__->meta->make_immutable;
}

our $foo = Foo->new;
our $bar = Bar->new;
Commit	Line	Data
346a3ab8	1	#!/usr/bin/perl
fde8e43f	2	# This is automatically generated by author/import-moose-test.pl.
	3	# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
	4	use t::lib::MooseCompat;
346a3ab8	5
	6	use strict;
	7	use warnings;
fde8e43f	8
346a3ab8	9
	10	{
	11	package Foo;
	12	use Mouse;
	13
	14	sub DEMOLISH {
	15	my $self = shift;
	16	my ($igd) = @_;
	17
fde8e43f	18	print $igd;
346a3ab8	19	}
	20	}
	21
	22	{
	23	package Bar;
	24	use Mouse;
	25
	26	sub DEMOLISH {
	27	my $self = shift;
	28	my ($igd) = @_;
	29
fde8e43f	30	print $igd;
346a3ab8	31	}
	32
	33	__PACKAGE__->meta->make_immutable;
	34	}
	35
	36	our $foo = Foo->new;
	37	our $bar = Bar->new;