File Coverage

blib/lib/Inline/Nouse.pm

Criterion	Covered	Total	%
statement	19	21	90.4
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod	4	6	66.6
total	29	35	82.8

package Inline::Nouse;

$VERSION = '0.04';

require Inline;
require Inline::Interp;
require Language::Nouse;

@ISA = qw(Inline Inline::Interp);

use strict;
use Carp;

my $g_io;

sub register {
	return {
		language => 'nouse',
		aliases => ['Nouse', 'nouse'],
		type => 'interpreted',
		suffix => 'ns',
	};
}

sub do_load {
	my ($funcs, $code) = @_;

	while($code =~ m/function(\s+)([a-z0-9_]+)(\s*){(.*?)}/isg){
		Inline::Interp::add_func($funcs, $2, $4);
	}
}

sub load {
	Inline::Interp::load(@_);
}

sub get_char {
	return Inline::Interp::input_char($g_io);
}

sub put_char {
	my ($out) = @_;
	Inline::Interp::output_char($g_io, $out);
}

sub do_run {
	my ($code, $io) = @_;

	$g_io = $io;

	my $interp = new Language::Nouse;
	$interp->load_linenoise($code);
	$interp->set_get(\&get_char);
	$interp->set_put(\&put_char);

	$interp->run();
}

1;

__END__