File Coverage

blib/lib/Language/Befunge/lib/BOOL.pm

Criterion	Covered	Total	%
statement	6	26	23.0
branch			n/a
condition	0	10	0.0
subroutine	2	7	28.5
pod	5	5	100.0
total	13	48	27.0

#
# 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::BOOL;

use strict;
use warnings;


sub new { return bless {}, shift; }


# -- bit operations

#
# $v = A( $a, $b )
#
# push $a and $b back onto the stack (logical AND)
#
sub A {
    my ($self, $interp) = @_;
    my $ip = $interp->get_curip();

    # pop the values
    my $b = $ip->spop;
    my $a = $ip->spop;

	# push the result
	$ip->spush( $a and $b );
}


#
# $v = N( $a )
#
# push not $a back onto the stack (logical NOT)
#
sub N {
    my ($self, $interp) = @_;
    my $ip = $interp->get_curip();

    # pop the values
    my $a = $ip->spop;

	# push the result
	$ip->spush( not $a );
}


#
# $v = O( $a, $b )
#
# push $a or $b back onto the stack (logical OR)
#
sub O {
    my ($self, $interp) = @_;
    my $ip = $interp->get_curip();

    # pop the values
    my $b = $ip->spop;
    my $a = $ip->spop;

	# push the result
	$ip->spush( $a or $b );
}



#
# $v = X( $a, $b )
#
# push $a xor $b back onto the stack (logical XOR)
#
sub X {
    my ($self, $interp) = @_;
    my $ip = $interp->get_curip();

    # pop the values
    my $b = $ip->spop;
    my $a = $ip->spop;

	# push the result
	$ip->spush( $a xor $b );
}



1;

__END__