diff options
author | doy <doy@tozt.net> | 2008-12-07 01:38:11 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2008-12-07 01:38:11 -0500 |
commit | b2d38ce2f9a7728c473ee1def658e72147c5ef42 (patch) | |
tree | 973ef9a2668cd27658132ba375c8bce99dfbe9d8 | |
parent | 6786a9cdc554e8ff449e7fa9e079939fee0b7a59 (diff) | |
download | moosex-role-matcher-b2d38ce2f9a7728c473ee1def658e72147c5ef42.tar.gz moosex-role-matcher-b2d38ce2f9a7728c473ee1def658e72147c5ef42.zip |
style fixes (sartak)
-rw-r--r-- | lib/MooseX/Role/Matcher.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/MooseX/Role/Matcher.pm b/lib/MooseX/Role/Matcher.pm index 7225a97..03cd03a 100644 --- a/lib/MooseX/Role/Matcher.pm +++ b/lib/MooseX/Role/Matcher.pm @@ -33,7 +33,8 @@ use List::MoreUtils qw/any all/; # does everyone's name start with either J or E? Person->all_match([@people], name => [qr/^J/, qr/^E/]); - # find the first person whose name is 4 characters long (using the default) + # find the first person whose name is 4 characters long (using the + # default_match of name) my $four = Person->first_match([@people], sub { length == 4 }); =head1 DESCRIPTION @@ -53,8 +54,8 @@ L<MooseX::Role::Parameterized>). The parameters it takes are: =item default_match Which attribute/method to test against by default, if none are specified -explicitly. Setting default_match to 'foo' allows using $obj->match('bar') -rather than $obj->match(foo => 'bar'). +explicitly. Setting default_match to 'foo' allows using +C<< $obj->match('bar') >> rather than C<< $obj->match(foo => 'bar') >>. =back @@ -173,7 +174,7 @@ false. =item CODEREF -Calls the coderef with $_ set to the result of the method, returning true if +Calls the coderef with C<$_> set to the result of the method, returning true if the coderef returns true, and false otherwise. =item UNDEF |