view release on metacpan or  search on metacpan

bin/test-logical-equivalence  view on Meta::CPAN

use Acme::Test::LogicalEquivalence qw(is_logically_equivalent);

sub usage {
    print <<END;
$0 EXPR1 EXPR2
Test if two simple expressions are logically equivalent.

Exactly two expressions must be given.

Example: $0 '\$a || \$b' '\$b || \$a'
Remember that you may need to escape special characters like "\$" from your shell.
END
    exit 1;
}

sub find_num_vars {
    my $expr = shift;

    my $highest = -1;

    # check for scalars that look like $a or $b

bin/test-logical-equivalence  view on Meta::CPAN

=head1 NAME

test-logical-equivalence - Test if expressions are logically equivalent

=head1 VERSION

version 0.001

=head1 SYNOPSIS

    # be sure to escape $ and other special characters from your shell
    test-logical-equivalence '$a && $b' '$b && $a'

=head1 SEE ALSO

=over 4

=item *

L<Acme::Test::LogicalEquivalence>