diff options
author | doy <doy@tozt.net> | 2008-12-07 02:38:56 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2008-12-07 02:38:56 -0500 |
commit | 1f66eff4c0eebc4515a43c8c76f57c8159cf2c86 (patch) | |
tree | 9ca6f1ab92ddbb2e93789470f940b54237807188 | |
parent | 97f56302d8fc61d928a77090efc824ccb976bd53 (diff) | |
download | moosex-role-matcher-1f66eff4c0eebc4515a43c8c76f57c8159cf2c86.tar.gz moosex-role-matcher-1f66eff4c0eebc4515a43c8c76f57c8159cf2c86.zip |
reformatting
-rw-r--r-- | lib/MooseX/Role/Matcher.pm | 8 |
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); |