Select Code to Download

#! /usr/bin/env perl

...
say $0;
eval { my $foo = Foo->new(file => file($0)); }; say ":::".$@.":::";
eval { my $foo = Foo->new(file => $0); }; say ":::".$@.":::";

subtype_madness.pl
In subtype where clause: subtype_madness.pl
...
    Foo::new('Foo', 'file', 'subtype_madness.pl') called at subtype_ma
+dness.pl line 36
    eval {...} at subtype_madness.pl line 36
:::