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

   1 #!/usr/bin/perl
   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;
   5
   6 use strict;
   7 use warnings;
   8
   9
  10 {
  11     package Foo;
  12     use Mouse;
  13
  14     sub DEMOLISH {
  15         my $self = shift;
  16         my ($igd) = @_;
  17
  18         print $igd;
  19     }
  20 }
  21
  22 {
  23     package Bar;
  24     use Mouse;
  25
  26     sub DEMOLISH {
  27         my $self = shift;
  28         my ($igd) = @_;
  29
  30         print $igd;
  31     }
  32
  33     __PACKAGE__->meta->make_immutable;
  34 }
  35
  36 our $foo = Foo->new;
  37 our $bar = Bar->new;