view release on metacpan or  search on metacpan

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

31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
$| = 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)) {