X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F010_basics%2Ffailing%2F020-global-destruction-helper.pl;h=7c30edd5565dbc230859ca3295a7c8a428f57977;hp=a0defbe842a6859ecba06032db82f5320a36b9ed;hb=346a3ab8a10ac61eae8021ccfd068d80ccccd56a;hpb=267711f78bd79835875f805447d3ab802a18f0c4 diff --git a/t/010_basics/failing/020-global-destruction-helper.pl b/t/010_basics/failing/020-global-destruction-helper.pl index a0defbe..7c30edd 100755 --- a/t/010_basics/failing/020-global-destruction-helper.pl +++ b/t/010_basics/failing/020-global-destruction-helper.pl @@ -1,34 +1,34 @@ -#!/usr/bin/perl - -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; +#!/usr/bin/perl + +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;