Merge pull request #7 from manwar/add-method-no-skip

Add method no skip

lib/Array/Compare.pm

@@ -155,10 +155,9 @@ or:
   my %skip = (1 => 1, 2 => 2);
   $comp->Skip(\%skip);
 
-To reset the comparator so that no longer skips elements, set the skip
-hash to an empty hash.
+To reset the comparator so that no longer skips elements, call NoSkip().
 
-  $comp->Skip({});
+  $comp->NoSkip();
 
 You can also check to see if one array is a permutation of another, i.e.
 they contain the same elements but in a different order.
@@ -228,6 +227,18 @@ a reference to a hash which contains the numbers of any columns that should
 be skipped in the comparison. Default is an empty hash (all columns are
 significant).
 
+=item NoSkip
+
+Reset skipped column details. It assigns {} to the attribute C<Skip>.
+
+=cut
+
+sub NoSkip {
+    my $self = shift;
+
+    $self->{Skip} = {};
+}
+
 =item DefFull
 
 Flag which indicates whether the default comparison is simple (just returns

t/test.t

@@ -22,6 +22,10 @@ ok(not $comp->compare(\@A, \@B));
 $comp->Skip(\%skip1);
 ok($comp->compare(\@A, \@B));
 
+# Compare two different arrays after reset Skip - should fail
+$comp->NoSkip();
+ok(not $comp->compare(\@A, \@B));
+
 # compare two different arrays but ignore non-differing column - should fail
 $comp->Skip(\%skip2);
 ok(not $comp->compare(\@A, \@B));