Inline::Perl - Inline module for another Perl interpreter

    use Inline Perl => q{
        sub set_x { $::x = $_[0] }
        sub get_x { $::x }
    };

    set_x(1);
    $::x = 2;
    print get_x(); # 1

package Inline::Perl;
$Inline::Perl::VERSION = '0.01';
@Inline::Perl::ISA = qw(Inline);

use strict;

use Inline ();
use Perl ();

# register for Inline
sub register {
    return {
	language => 'Perl',
	aliases  => ['perl'],
	type     => 'interpreted',
	suffix   => 'go',
    };
}

# check options
sub validate {
    my $self = shift;
    my $perl = $self->{perl} ||= Perl->new;

    while (@_ >= 2) {
        my ($key, $value) = (shift, shift);
        $perl->define($key, $value) if $key =~ /^\w/;
    }
}

sub build {
    my $self = shift;

    # magic dance steps to a successful Inline compile...
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};

    # touch my monkey
    open(OBJECT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

# load the code into the interpreter
sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $perl = $self->{perl} ||= Perl->new;

    $perl->eval($code);

    no strict 'refs';
    foreach my $sym ($perl->eval(q[grep *{$::{$_}}{CODE}, keys %::])) {
        *{"$pkg\::$sym"} = sub {
            $perl->eval("$sym(".join(', ', map '"'.quotemeta($_).'"', @_).")");
        };
    }
}

# no info implementation yet
sub info { }

1;

__END__