summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordoy <doy@tozt.net>2008-12-07 02:38:56 -0500
committerdoy <doy@tozt.net>2008-12-07 02:38:56 -0500
commit1f66eff4c0eebc4515a43c8c76f57c8159cf2c86 (patch)
tree9ca6f1ab92ddbb2e93789470f940b54237807188
parent97f56302d8fc61d928a77090efc824ccb976bd53 (diff)
downloadmoosex-role-matcher-1f66eff4c0eebc4515a43c8c76f57c8159cf2c86.tar.gz
moosex-role-matcher-1f66eff4c0eebc4515a43c8c76f57c8159cf2c86.zip
reformatting
-rw-r--r--lib/MooseX/Role/Matcher.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/MooseX/Role/Matcher.pm b/lib/MooseX/Role/Matcher.pm
index d621787..40f0331 100644
--- a/lib/MooseX/Role/Matcher.pm
+++ b/lib/MooseX/Role/Matcher.pm
@@ -17,9 +17,11 @@ use List::MoreUtils qw/any all/;
has phone => (is => 'ro', isa => 'Str');
package main;
- my @people = (Person->new(name => 'James', age => 22, phone => '555-1914'),
- Person->new(name => 'Jesse', age => 22, phone => '555-6287'),
- Person->new(name => 'Eric', age => 21, phone => '555-7634'));
+ my @people = (
+ Person->new(name => 'James', age => 22, phone => '555-1914'),
+ Person->new(name => 'Jesse', age => 22, phone => '555-6287'),
+ Person->new(name => 'Eric', age => 21, phone => '555-7634'),
+ );
# is James 22?
$people[0]->match(age => 22);