Inline::Echo - A demo module using Inline::Interp

Inline-Interp documentation Contained in the Inline-Interp distribution.

Index

Code Index:

NAME

Top

Inline::Echo - A demo module using Inline::Interp

SYNOPSIS

Top

  require Inline::Echo;

  use Inline 'Echo' => 'function hello{hello world}';

  # prints "hello world"
  &hello;

DESCRIPTION

Top

This module is a demonstration of how to use Inline::Interp and is used for testing Inline::Interp. It creates functions that echo their contents using the IO layer.

AUTHOR

Top

Copyright (C) 2003, Cal Henderson <cal@iamcal.com>

SEE ALSO

Top

Inline Inline::Interp

Inline-Interp documentation Contained in the Inline-Interp distribution. 
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__