Select Code to Download

sub deparse_format {
    use B::Deparse;
...
    my $deparser = B::Deparse::->new();
    return $deparser->indent($deparser->deparse_format($Bobj));
}