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

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6
   7 {
   8     package Foo;
   9     use Moose;
  10
  11     sub DEMOLISH {
  12         my $self = shift;
  13         my ($igd) = @_;
  14
  15         print $igd;
  16     }
  17 }
  18
  19 our $foo = Foo->new;