Next The Perl Hardware Store DC.pm Version 55

Reference Operations

        $x == $y
        sub index_of_object {
          my ($obj, @o_list) = @_;
          my $i;
          for ($i=0; $i < @o_list; $i++) {
            return $i if $o_list[$i] == $obj;
          }
          return;
        }
        sub obj_eq {
          my ($a, $b) = @_;
          return 1 if $a == $b;
          deep_compare($a, $b);
        }


Next Copyright © 2003 M. J. Dominus