File Coverage

blib/lib/Net/Plazes/User.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

#########
# Author:        rmp
# Maintainer:    $Author: rmp $
# Created:       2008-08-13
# Last Modified: $Date$
# Id:            $Id$
# $HeadURL$
#
package Net::Plazes::User;
use strict;
use warnings;
use base qw(Net::Plazes::Base);
use Net::Plazes::Activity;

our $VERSION = '0.03';

__PACKAGE__->mk_accessors(fields());
__PACKAGE__->has_many();

sub service {
  return q[http://plazes.com/users];
}

sub fields {
  return qw(id created_at full_name name updated_at avatar_url);
}

sub activities {
  my $self     = shift;

  if(!$self->id()) {
    return [];
  }

  if(!$self->{activities}) {
    my $obj_uri  = sprintf '%s/%d/activities', $self->service(), $self->id();
    my $root_activity = Net::Plazes::Activity->new({
						    useragent => $self->useragent(),
						   });
    $root_activity->list($obj_uri);
    $self->{activities} = $root_activity->activities();
  }

  return $self->{activities};
}

1;
__END__