3 # This file is part of Language::Befunge.
4 # Copyright (c) 2001-2008 Jerome Quelin, all rights reserved.
6 # This program is free software; you can redistribute it and/or modify
7 # it under the same terms as Perl itself.
12 use Language
::Befunge
;
17 jqbf98.pl - a Befunge-98 interpreter.
22 jqbf98 [-v] program.bf
27 This is a full featured Concurrent Befunge-98 interpreter.
28 Just provide the name of the Befunge script, and there you go!
33 Getopt
::Long
::Configure
('no_auto_abbrev', 'bundling', 'ignore_case', 'no_pass_through');
34 GetOptions
( \
%opts, "verbose|v") or die;
35 my $bef = Language
::Befunge
->new( {file
=>shift} );
36 $bef->set_DEBUG( $opts{verbose
} );
37 exit $bef->run_code( @ARGV );
47 =item L<Language::Befunge>
54 Jerome Quelin, E<lt>jquelin@cpan.orgE<gt>
57 =head1 COPYRIGHT & LICENSE
59 Copyright (c) 2001-2008 Jerome Quelin, all rights reserved.
61 This program is free software; you can redistribute it and/or modify
62 it under the same terms as Perl itself.