#!/usr/bin/perl -w

use strict;
use Foo;
my $i = 1;
my $bar = 'foo';
my $foo = Foo->new;
print "|", $foo->convert(sub {$i; return $bar}), "|\n";

##</code><code>##

#!/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;