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

#!/usr/bin/perl\r
\r
use strict;\r
use warnings;\r
\r
\r
{\r
    package Foo;\r
    use Mouse;\r
\r
    sub DEMOLISH {\r
        my $self = shift;\r
        my ($igd) = @_;\r
\r
        print $igd;\r
    }\r
}\r
\r
{\r
    package Bar;\r
    use Mouse;\r
\r
    sub DEMOLISH {\r
        my $self = shift;\r
        my ($igd) = @_;\r
\r
        print $igd;\r
    }\r
\r
    __PACKAGE__->meta->make_immutable;\r
}\r
\r
our $foo = Foo->new;\r
our $bar = Bar->new;\r
Commit	Line	Data
60ad2cb7	1	#!/usr/bin/perl\r
	2	\r
	3	use strict;\r
	4	use warnings;\r
	5	\r
	6	\r
	7	{\r
	8	package Foo;\r
	9	use Mouse;\r
	10	\r
	11	sub DEMOLISH {\r
	12	my $self = shift;\r
	13	my ($igd) = @_;\r
	14	\r
	15	print $igd;\r
	16	}\r
	17	}\r
	18	\r
	19	{\r
	20	package Bar;\r
	21	use Mouse;\r
	22	\r
	23	sub DEMOLISH {\r
	24	my $self = shift;\r
	25	my ($igd) = @_;\r
	26	\r
	27	print $igd;\r
	28	}\r
	29	\r
	30	__PACKAGE__->meta->make_immutable;\r
	31	}\r
	32	\r
	33	our $foo = Foo->new;\r
	34	our $bar = Bar->new;\r