diff options
| author | doy <doy@tozt.net> | 2008-12-07 00:33:20 -0500 |
|---|---|---|
| committer | doy <doy@tozt.net> | 2008-12-07 00:33:20 -0500 |
| commit | f72f582111bb4da827ed4fb7a7ff855f6faf9786 (patch) | |
| tree | 440a41e961908b5930a43c04930e24931695dd14 /t/101-parameterized.t | |
| parent | 1f7c809af24762d7a1c0d1fab184a3ef1d8c54cd (diff) | |
| download | moosex-role-matcher-f72f582111bb4da827ed4fb7a7ff855f6faf9786.tar.gz moosex-role-matcher-f72f582111bb4da827ed4fb7a7ff855f6faf9786.zip | |
use $_ for passing the value to coderef matchers, rather than passing it as an argument
Diffstat (limited to 't/101-parameterized.t')
| -rw-r--r-- | t/101-parameterized.t | 2 |
1 files changed, 1 insertions, 1 deletions
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'); |