#!/bin/false
package Foo;
use Devel::Peek;

sub new { return bless {}, shift};
sub convert {
    shift;
    use B::Deparse;
    my $c = shift;
    my $b = B::Deparse->new("-d");
    my @p = split /\n/, $b->coderef2text($c);
    print "FOOBAR: " . Dump($c) . " :BARFOO\n";
    return $p[2] . '::' . eval $p[2];
}

1;