t/010_basics/failing/020-global-destruction-helper.pl

   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