lib/Language/Befunge/lib/HELO.pm

   1 #
   2 # This file is part of Language::Befunge.
   3 # Copyright (c) 2001-2009 Jerome Quelin, all rights reserved.
   4 #
   5 # This program is free software; you can redistribute it and/or modify
   6 # it under the same terms as Perl itself.
   7 #
   8 #
   9
  10 package Language::Befunge::lib::HELO;
  11
  12 use strict;
  13 use warnings;
  14
  15 sub new { return bless {}, shift; }
  16
  17 sub P {
  18     print "Hello world!\n";
  19 }
  20
  21 sub S {
  22     my (undef, $interp) = @_;
  23     $interp->get_curip->spush( reverse map { ord } split //, "Hello world!\n".chr(0) );
  24 }
  25
  26
  27 1;
  28 __END__
  29
  30
  31 =head1 NAME
  32
  33 Language::Befunge::IP::lib::HELO - a Befunge extension to print Hello world!
  34
  35
  36 =head1 SYNOPSIS
  37
  38     P - print "Hello world!\n"
  39     S - store the gnirts "Hello world!\n"0 on the TOSS
  40
  41 =head1 DESCRIPTION
  42
  43 This extension is just an example of the Befunge extension mechanism
  44 of the Language::Befunge interpreter.
  45
  46
  47 =head1 FUNCTIONS
  48
  49 =head2 new
  50
  51 Create a new HELO instance.
  52
  53
  54 =head2 P
  55
  56 Output C<Hello world!\n>.
  57
  58
  59 =head2 S
  60
  61 Store the gnirts "Hello world!\n"0 on the TOSS.
  62
  63
  64 =head1 SEE ALSO
  65
  66 L<Language::Befunge>.
  67
  68
  69 =head1 AUTHOR
  70
  71 Jerome Quelin, E<lt>jquelin@cpan.orgE<gt>
  72
  73
  74 =head1 COPYRIGHT & LICENSE
  75
  76 Copyright (c) 2001-2009 Jerome Quelin, all rights reserved.
  77
  78 This program is free software; you can redistribute it and/or modify
  79 it under the same terms as Perl itself.
  80
  81
  82 =cut