Select Code to Download

#!/usr/bin/env perl

...

my $p = MyClass->new(number => 666);
$p->get_number; # asplode; it's a private method

my $private_method = sub {
  ...;
};

$self->$private_method(@args);