trAvis - MANAGER

Edit File: global-destruction-helper.pl

#!/usr/bin/perl use strict; use warnings; { package Foo; use Moose; sub DEMOLISH { my $self = shift; my ($igd) = @_; print $igd; } } { package Bar; use Moose; sub DEMOLISH { my $self = shift; my ($igd) = @_; print $igd; } __PACKAGE__->meta->make_immutable; } our $foo = Foo->new; our $bar = Bar->new;