in reply to Converting a coderef back to code

#!/usr/bin/perl --
use strict;
use warnings;

print oxone(\&oxone);

sub oxone {
    use Data::Dumper;
    local $Data::Dumper::Deparse=1;
    return Dumper(shift);
}
__END__
$VAR1 = sub {
            use warnings;
            use strict 'refs';
            local $Data::Dumper::Deparse = 1;
            return Dumper(shift @_);
        };

[download]

Replies are listed 'Best First'.
Re^2: Converting a coderef back to code
by oxone (Friar) on Apr 24, 2009 at 12:20 UTC
    Great - many thanks for the solution!

    I just went looking for how Data::Dumper does this, and it seems the core solution is: 

    use B::Deparse;
...
my $string = B::Deparse->new->coderef2text($coderef);

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom