Select Code to Download

# iterator
sort { $a cmp $b } @array;
# callback
sub myFunc { $a cmp $b }
sort myFunc @array;

   package MyDiff;
   @MyDiff::ISA = 'Algorithm::Diff';
...
   package main;
   my $diff = MyDiff->new();
   $diff->traverse_sequences(\@a1, \@a2);