Select Code to Download

$obj->method();

sub dispatch {
    my ($obj, $method_name, @args) = @_;
...
    }
    die "Could not find '$method_name' for $obj";
}