Help for this page

Select Code to Download

Select or download this

use B::Deparse;
sub dumpsub {
    print "sub ",B::Deparse->new->coderef2text(shift),"\n"
}
dumpsub \&dumpsub;

Select or download this

sub {
    BEGIN {${^WARNING_BITS} = "\377\377\377\377\377\377\377\377\377\37
+7\377\177"}
    use strict 'refs';
    print 'sub ', 'B::Deparse'->new->coderef2text(shift @_), "\n";
}