Select Code to Download

#!/usr/bin/perl
{
...
my $y = new bar;
$x->m;
$y->m;

replace
foo-baz
foo-baz

*m =  sub { $self->baz }

*m =  sub { my $self = shift; $self->baz }

$self->{m}->($self,@args);