File Coverage

blib/lib/Language/Befunge/lib/PERL.pm

Criterion	Covered	Total	%
statement	6	21	28.5
branch			n/a
condition			n/a
subroutine	2	6	33.3
pod	4	4	100.0
total	12	31	38.7

#
# This file is part of Language::Befunge.
# Copyright (c) 2001-2009 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
#
#

package Language::Befunge::lib::PERL;

use strict;
use warnings;


sub new { return bless {}, shift; }


# -- Perl embedding

#
# 0gnirts = E( 0gnirts )
#
# 'Eval' pops a 0gnirts string and performs a Perl eval() on it. The
# result of the call is pushed as a 0gnirts string back onto the stack.
#
sub E {
    my ($self, $interp) = @_;
    my $ip = $interp->get_curip();

    # pop the perl string
    my $perl = $ip->spop_gnirts();
	my $return = eval $perl;

	$ip->spush( 0 ); # finish the string
	$ip->spush( map{ ord($_) } reverse split(//, $return) );
}


#
# val = I( 0gnirts )
#
# 'Int Eval' acts the same as 'E', except that the result of the call
# is converted to an integer and pushed as a single cell onto the stack.
#
sub I {
    my ($self, $interp) = @_;
    my $ip = $interp->get_curip();

    # pop the perl string
    my $perl = $ip->spop_gnirts();
	my $return = eval $perl;

	$ip->spush( int $return );
}


# -- Module information

#
# S
# 'Shelled' pushes a 0 on the stack, meaning that the Perl language is already
# loaded (e.g. the interpreter is written in Perl).
#
sub S {
    my ($self, $interp) = @_;
    $interp->get_curip->spush(0);
}

1;

__END__