Select Code to Download

package X;
use strict;
...

my $y = Y->new;
1;

package Y;
use Moose;

sub DEMOLISH {}
1;

use strict;
use X;
print "done\n";