From b2d38ce2f9a7728c473ee1def658e72147c5ef42 Mon Sep 17 00:00:00 2001 From: doy Date: Sun, 7 Dec 2008 01:38:11 -0500 Subject: style fixes (sartak) --- lib/MooseX/Role/Matcher.pm | 9 +++++---- 1 file 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). 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 -- cgit v1.2.3-54-g00ecf