#!/usr/bin/perl
#
# This file is part of Language::Befunge::Debugger.
# Copyright (c) 2007 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 Getopt::Euclid;
use Language::Befunge::Debugger;
use POE;

Language::Befunge::Debugger->spawn( file => $ARGV{'<file>'} );
POE::Kernel->run;

exit;

__END__

=head1 NAME

jqbefdb - a graphical befunge debugger


=head1 USAGE

    $ jqbefdb [file]


=head1 OPTIONS

=over 4

=item <file>

A befunge program to be debugged.

=for Euclid:
    file.type: readable


=item --version

=item --usage

=item --help

=item --man

Print the usual program information.


=back


=head1 AUTHOR

Jerome Quelin, C<< <jquelin at cpan.org> >>



=head1 COPYRIGHT & LICENSE

Copyright (c) 2007 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

