summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordoy <doy@tozt.net>2008-12-07 01:38:11 -0500
committerdoy <doy@tozt.net>2008-12-07 01:38:11 -0500
commitb2d38ce2f9a7728c473ee1def658e72147c5ef42 (patch)
tree973ef9a2668cd27658132ba375c8bce99dfbe9d8
parent6786a9cdc554e8ff449e7fa9e079939fee0b7a59 (diff)
downloadmoosex-role-matcher-b2d38ce2f9a7728c473ee1def658e72147c5ef42.tar.gz
moosex-role-matcher-b2d38ce2f9a7728c473ee1def658e72147c5ef42.zip
style fixes (sartak)
-rw-r--r--lib/MooseX/Role/Matcher.pm9
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