Select Code to Download

sub Dump {
    no strict 'refs';
    my $implementation = __PACKAGE__->implementation;
...
    print STDERR "FINAL: $debug = $$debug\n";
    return &{"$implementation\::Dump"}(@_);
}

#!/usr/bin/perl
use strict;
use warnings;
...
YAML::XS::UseCode = 
FINAL: YAML::XS::UseCode = 
--- !!perl/code '{ "DUMMY" }'

#!/usr/bin/perl
use warnings;
use YAML::Any;
...
local ${YAML::Any->implementation()."::UseCode"}=1;
# can't use strict before this because of refs
use strict;

@_=qw;
Just another Perl hacker,;
;$_=q=print
"@_"= and eval;