view release on metacpan or  search on metacpan

devel/ema-omitted-old.pl  view on Meta::CPAN

$| = 1;


#------------------------------------------------------------------------------
Math::Polynomial->verbose(1);
Math::Polynomial->configure (VARIABLE => '$x');

package Math::Polynomial;
use List::Util qw(min max);

use overload '==' => \&equal, '!=' => \&not_equal;
sub not_equal { return ! equal(@_); }
sub equal {
  my ($left, $right) = @_;

  unless (ref($right) && $right->isa('Math::Polynomial')) {
    $right = [ $right ];
  }
  foreach my $i (0 .. max ($#$left, $#$right)) {
    unless (($i < @$left ? $left->[$#$left-$i] : 0)
            ==
            ($i < @$right ? $right->[$#$right-$i] : 0)) {