The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl -I../lib -I../../../lib 
use strict;
use warnings;
use Math::Calc;

# Called as a method just to keep compatibility with
# "modulino" call ..
Math::Calc->main();

=head1 NAME

calc.pl - Calculator example in Parse::Eyapp

=head1 SYNOPSIS

  $ calc.pl [OPTIONS]
  where options are:
          -f file
          -d 
          -h

  # input from STDIN
  $ calc.pl 

  # input from file expressions1
  $ calc.pl -f expressions1

  # debug mode
  $ calc.pl -d -f expressions1

  # Example of input file
  $ cat expressions1
  a=2*3
  b=4
  c=9+1
  b= (b+1)*b


=head1 DESCRIPTION

=head1 SEE ALSO

=over 2

=item * L<Math::Calculator>

=item * L<Parse::Eyapp>

=back

=head1 AUTHOR

William N. Braswell, Jr. E<lt>wbraswell_cpan@NOSPAM.nym.hush.comE<gt>
(Remove "NOSPAM".)

=head1 LICENSE AND COPYRIGHT
 
Copyright © 2006, 2007, 2008, 2009, 2010, 2011, 2012 Casiano Rodriguez-Leon.
Copyright © 2017 William N. Braswell, Jr.
All Rights Reserved.

Parse::Yapp is Copyright © 1998, 1999, 2000, 2001, Francois Desarmenien.
Parse::Yapp is Copyright © 2017 William N. Braswell, Jr.
All Rights Reserved.

These modules are free software; you can redistribute it and/or
modify it under the same terms as Perl itself. See L<perlartistic>.
 
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.