The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Language::Ook - a Ook! interpreter.

SYNOPSIS

    use Language::Ook;
    my $interp = new Language::Ook( "program.ook" );
    $interp->run_code;

    # Print the Perl code.
    $interp->print_code;

DESCRIPTION

A programming language should be writable and readable by orang-utans. So Ook! is a programming language designed for orang-utans.

Ook! is bijective with BrainFuck, and thus, Turing-complete.

CONSTRUCTOR

new( [filename] )

Create a new Ook interpreter. If a filename is provided, then read and store the content of the file.

ACCESSORS

code ( )

Return the associated Perl code.

PUBLIC METHODS

Print the equivalent Perl code.

read_file( filename )

Read a file (given as argument) and store its code.

Side effect: clear the previous code.

run_code( )

Run the stored code.

AUTHOR

Jerome Quelin, <jquelin@cpan.org>

COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

http://www.dangermouse.net/esoteric/ook.html