Select Code to Download

sub foo { print caller(0); }
my $cref = sub { return 1; };
...
    c => $cref,
    m => 'bar',
};

sub foo { print caller(0); }

...
    d => 'foo',
    m => 'bar',
};