File Coverage

blib/lib/Inline/Echo.pm

Criterion	Covered	Total	%
statement	12	13	92.3
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	4	4	100.0
total	21	23	91.3

package Inline::Echo;

$VERSION = '0.01';

require Inline;
require Inline::Interp;

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

use strict;
use Carp;

sub register {
	return {
		language => 'Echo',
		aliases => ['Echo', 'echo'],
		type => 'interpreted',
		suffix => 'echo',
	};
}

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 do_run {
	my ($code, $io) = @_;

	Inline::Interp::output_char($io, $_) for split //, $code;
}

1;

__END__