[Bps-public-commit] net-lighthouse branch, master, updated. 2d29717a57335f381a61d786a8270cf00af95cd9

sunnavy at bestpractical.com sunnavy at bestpractical.com
Mon Aug 31 02:15:51 EDT 2009


The branch, master has been updated
       via  2d29717a57335f381a61d786a8270cf00af95cd9 (commit)
      from  ddb7c563f41f9a45b92dbaaaac3c6463e6796d28 (commit)

Summary of changes:
 lib/Net/Lighthouse/User.pm |    7 ++++++-
 t/06-user.t                |    2 +-
 2 files changed, 7 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 2d29717a57335f381a61d786a8270cf00af95cd9
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Mon Aug 31 14:15:39 2009 +0800

    update user attrs

diff --git a/lib/Net/Lighthouse/User.pm b/lib/Net/Lighthouse/User.pm
index cd6812c..ea59172 100644
--- a/lib/Net/Lighthouse/User.pm
+++ b/lib/Net/Lighthouse/User.pm
@@ -6,7 +6,12 @@ use Net::Lighthouse::Util;
 extends 'Net::Lighthouse';
 
 # read only attr
-has [qw/id avatar_url/] => (
+has 'id' => (
+    isa => 'Int',
+    is  => 'ro',
+);
+
+has 'avatar_url' => (
     isa => 'Maybe[Str]',
     is  => 'ro',
 );
diff --git a/t/06-user.t b/t/06-user.t
index 6183b4e..450426e 100644
--- a/t/06-user.t
+++ b/t/06-user.t
@@ -40,7 +40,7 @@ my %hash = (
     'website'    => undef,
     'avatar_url' => '/images/avatar.gif',
     'name'       => 'sunnavy (at gmail)',
-    'id'         => '67166',
+    'id'         => 67166,
     'job'        => ''
 );
 

-----------------------------------------------------------------------



More information about the Bps-public-commit mailing list