trAvis - MANAGER

Edit File: 020-global-destruction-helper.pl

#!/usr/bin/perl use strict; use warnings; no warnings 'once'; # work around 5.6.2 { package Foo; use Mouse; sub DEMOLISH { my $self = shift; my ($igd) = @_; print $igd || 0, "\n"; } } { package Bar; use Mouse; sub DEMOLISH { my $self = shift; my ($igd) = @_; print $igd || 0, "\n"; } __PACKAGE__->meta->make_immutable; } our $foo = Foo->new; our $bar = Bar->new;