#
# This file is part of Language::Befunge.
# Copyright (c) 2001-2008 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::HELO;

use strict;
use warnings;

sub new { return bless {}, shift; }

sub P {
    print "Hello world!\n";
}

sub S {
    my (undef, $interp) = @_;
    $interp->get_curip->spush( reverse map { ord } split //, "Hello world!\n".chr(0) );
}


1;
__END__


=head1 NAME

Language::Befunge::IP::lib::HELO - a Befunge extension to print Hello world!


=head1 SYNOPSIS

    P - print "Hello world!\n"
    S - store the gnirts "Hello world!\n"0 on the TOSS

=head1 DESCRIPTION

This extension is just an example of the Befunge extension mechanism
of the Language::Befunge interpreter.


=head1 FUNCTIONS

=head2 new

Create a new HELO instance.


=head2 P

Output C<Hello world!\n>.


=head2 S

Store the gnirts "Hello world!\n"0 on the TOSS.


=head1 SEE ALSO

L<Language::Befunge>.


=head1 AUTHOR

Jerome Quelin, E<lt>jquelin@cpan.orgE<gt>


=head1 COPYRIGHT & LICENSE

Copyright (c) 2001-2008 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.


=cut