package X;
use strict;
use Y;

my $y = Y->new;
1;

##</code><code>##

package Y;
use Moose;

sub DEMOLISH {}
1;

##</code><code>##

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