#!/usr/bin/perl
#
# This file is part of Language::Befunge.
# Copyright (c) 2001-2009 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.
#
#
use strict;
use warnings;
use FindBin qw{ $Bin };
use lib "$Bin/../lib";
use Language::Befunge;
use Language::Befunge::Debug;
use Getopt::Long;
my %opts;
Getopt::Long::Configure('no_auto_abbrev', 'bundling', 'ignore_case', 'no_pass_through');
GetOptions( \%opts, "verbose|v") or die;
my $bef = Language::Befunge->new( {file=>shift} );
Language::Befunge::Debug::enable() if $opts{verbose};
exit $bef->run_code( @ARGV );
__END__
=head1 NAME
jqbef98 - a Befunge-98 interpreter
=head1 SYNOPSIS
jqbef98 [-v] program.bef
=head1 DESCRIPTION
This is a full featured Concurrent Befunge-98 interpreter.
Just provide the name of the Befunge script, and there you go!
=head1 SEE ALSO
L<Language::Befunge>.
=head1 AUTHOR
Jerome Quelin, E<lt>jquelin@cpan.orgE<gt>
=head1 COPYRIGHT & LICENSE
Copyright (c) 2001-2009 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