t/global-destruction-helper.pl

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5 no warnings 'once'; # work around 5.6.2
   6
   7 {
   8     package Foo;
   9     use Moo;
  10
  11     sub DEMOLISH {
  12         my $self = shift;
  13         my ($igd) = @_;
  14
  15         print $igd || 0, "\n";
  16     }
  17 }
  18
  19 our $foo = Foo->new;