File Coverage

blib/lib/Language/Befunge/lib/NULL.pm

Criterion	Covered	Total	%
statement	8	11	72.7
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	1	1	100.0
total	12	17	70.5

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

use strict;
use warnings;

sub new { return bless {}, shift; }


# basic IP reflection
sub _reverse {
    my (undef, $interp) = @_;
	$interp->get_curip->dir_reverse;
}

#
# for each of the library instructions, override it with a reflection.
#
BEGIN {
	for my $l ( 'A'..'Z' ) {
		eval "*$l = \\&_reverse";
	}
}


1;
__END__