bin/jqbef98

   1 #!/usr/bin/perl
   2 #
   3 # This file is part of Language::Befunge.
   4 # Copyright (c) 2001-2008 Jerome Quelin, all rights reserved.
   5 #
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the same terms as Perl itself.
   8 #
   9 #
  10
  11 use strict;
  12 use warnings;
  13
  14 use FindBin qw{ $Bin };
  15 use lib "$Bin/../lib";
  16
  17 use Language::Befunge;
  18 use Getopt::Long;
  19
  20 my %opts;
  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 );
  26
  27 __END__
  28
  29 =head1 NAME
  30
  31 jqbef98 - a Befunge-98 interpreter
  32
  33
  34
  35 =head1 SYNOPSIS
  36
  37     jqbef98 [-v] program.bef
  38
  39
  40
  41 =head1 DESCRIPTION
  42
  43 This is a full featured Concurrent Befunge-98 interpreter.
  44 Just provide the name of the Befunge script, and there you go!
  45
  46
  47
  48 =head1 SEE ALSO
  49
  50 L<Language::Befunge>.
  51
  52
  53
  54 =head1 AUTHOR
  55
  56 Jerome Quelin, E<lt>jquelin@cpan.orgE<gt>
  57
  58
  59
  60 =head1 COPYRIGHT & LICENSE
  61
  62 Copyright (c) 2001-2008 Jerome Quelin, all rights reserved.
  63
  64 This program is free software; you can redistribute it and/or modify
  65 it under the same terms as Perl itself.
  66
  67
  68 =cut