use $_ for passing the value to coderef matchers, rather than passing it as an argument

4 files changed, 7 insertions, 7 deletions

diff --git a/t/001-basic-matching.t b/t/001-basic-matching.t
index 45852ca..e45b43f 100644
--- a/t/001-basic-matching.t
+++ b/t/001-basic-matching.t
@@ -18,9 +18,9 @@ ok($foo->match(a => 'foo', b => 'bar', c => 'baz'),
    'string matching works');
 ok($foo->match(a => qr/o/),
    'regex matching works');
-ok($foo->match(b => sub { length(shift) == 3 }),
+ok($foo->match(b => sub { length == 3 }),
    'subroutine matching works');
-ok($foo->match(a => 'foo', b => qr/a/, c => sub { substr(shift, 2) eq 'z' }),
+ok($foo->match(a => 'foo', b => qr/a/, c => sub { substr($_, 2) eq 'z' }),
    'combined matching works');
 $foo = Foo->new(a => 'foo');
 ok($foo->match(a => 'foo', b => undef),
diff --git a/t/002-complicated-matching.t b/t/002-complicated-matching.t
index 1c0a7b9..9fa204f 100644
--- a/t/002-complicated-matching.t
+++ b/t/002-complicated-matching.t
@@ -15,11 +15,11 @@ has [qw/a b c/] => (
 
 package main;
 my $foo = Foo->new(a => 'foo', b => 'bar', c => 'baz');
-ok($foo->match(a => [qr/o/, sub { length(shift) == 4 }]),
+ok($foo->match(a => [qr/o/, sub { length == 4 }]),
    'arrayref matching works');
-ok($foo->match(a => [qr/b/, sub { length(shift) == 3 }]),
+ok($foo->match(a => [qr/b/, sub { length == 3 }]),
    'arrayref matching works');
-ok(!$foo->match(a => [qr/b/, sub { length(shift) == 4 }]),
+ok(!$foo->match(a => [qr/b/, sub { length == 4 }]),
    'arrayref matching works');
 ok($foo->match('!a' => 'bar', b => 'bar', '!c' => 'bar'),
    'negated matching works');
diff --git a/t/003-methods.t b/t/003-methods.t
index c4c0d5f..b625c02 100644
--- a/t/003-methods.t
+++ b/t/003-methods.t
@@ -22,5 +22,5 @@ package main;
 my $foo = Foo->new(a => 'foo', b => 'bar', c => 'baz');
 ok($foo->match(concat => 'foobarbaz'),
    'match handles methods as well as attributes');
-ok($foo->match(a => qr/o/, concat => sub { length(shift) > 6 }),
+ok($foo->match(a => qr/o/, concat => sub { length > 6 }),
    'match handles methods as well as attributes');
diff --git a/t/101-parameterized.t b/t/101-parameterized.t
index 53f6d4e..4b02fff 100644
--- a/t/101-parameterized.t
+++ b/t/101-parameterized.t
@@ -51,5 +51,5 @@ my $foo3 = Foo->new(a => 'blah', b => 'abc', c => 'foo');
 push @{ $foos->foos }, $foo1;
 push @{ $foos->foos }, $foo2;
 push @{ $foos->foos }, $foo3;
-is($foos->first_match(sub { length(shift) < 3 }), $foo2,
+is($foos->first_match(sub { length() < 3 }), $foo2,
    'default parameter is passed correctly');