#!/usr/bin/perl 
#
# This file is part of Language-Befunge
#
# This software is copyright (c) 2003 by Jerome Quelin.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#

use strict;
use warnings;

# PODNAME: jqbef98
# ABSTRACT: a Befunge-98 interpreter

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__

=pod

=encoding UTF-8

=head1 NAME

jqbef98 - a Befunge-98 interpreter

=head1 VERSION

version 5.000

=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

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2003 by Jerome Quelin.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut