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.
14 use FindBin
qw{ $Bin };
15 use lib
"$Bin/../lib";
17 use Language
::Befunge
;
21 Getopt
::Long
::Configure
('no_auto_abbrev', 'bundling', 'ignore_case', 'no_pass_through');
22 GetOptions
( \
%opts, "verbose|v") or die;
23 my $bef = Language
::Befunge
->new( {file
=>shift} );
24 $bef->set_DEBUG( $opts{verbose
} );
25 exit $bef->run_code( @ARGV );
31 jqbef98 - a Befunge-98 interpreter
37 jqbef98 [-v] program.bef
43 This is a full featured Concurrent Befunge-98 interpreter.
44 Just provide the name of the Befunge script, and there you go!
56 Jerome Quelin, E<lt>jquelin@cpan.orgE<gt>
60 =head1 COPYRIGHT & LICENSE
62 Copyright (c) 2001-2008 Jerome Quelin, all rights reserved.
64 This program is free software; you can redistribute it and/or modify
65 it under the same terms as Perl itself.