Select Code to Download

package Math::Expression::Evaluator;
@ISA    = qw(Exporter);
...
    return;
}
'This statement is false';

#!/usr/bin/perl
use strict;
...
my $parser = new Parse::RecDescent $grammar;
print Dumper $parser->evaluate('42 - 5 + 1');
# Sees the result as 42 - (5 + 1)

#!/usr/bin/perl
use strict;
...
};
my $parser = new Parse::RecDescent $grammar;
print Dumper $parser->evaluate('42 - 5 + 1');

#!/usr/bin/perl
use strict;
...
my $parser = Parse::RecDescent->new($grammar) or die("Bad grammar\n");
my $answer = $parser->evaluate('11 - (4 + 4)^3 * sqrt(5 * (6 - 1)) + a
+bs(-3)');
print defined $answer ? $answer : 'Invalid expression';

#!/usr/bin/perl
use strict;
...
my $tree = $parser->build('11 - 6 + 4');
my $eval = eval_node($tree);
print "$eval\n";

#!/usr/bin/perl
use strict;
...
    my $self = shift @_;
    $self->YYData->{INPUT} = $_[0];
}

#!/usr/bin/perl
use strict;
...
$parser->advance($str) for 1..6;
my ($tree) = $parser->matches_all($str, 'input');
print Dumper($tree);