File Coverage

blib/lib/Net/Plazes/Activity.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::Activity;
use strict;
use warnings;
use base qw(Net::Plazes::Base);
use Net::Plazes::User;
use Net::Plazes::Plaze;
use Carp;

our $VERSION = '0.03';

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

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

sub fields {
  return qw(id created_at device plaze_id scheduled_at status user_id);
}

sub process_dom {
  my ($self, $obj, $dom) = @_;
  $self->SUPER::process_dom($obj, $dom);

  my $plz_els = $dom->getElementsByTagName('plaze');
  if($plz_els) {
    my $el = $plz_els->[0];
    if($el) {
      my $plaze = Net::Plazes::Plaze->new({
					   usergent => $self->useragent(),
					  });
      $obj->{plaze} = $plaze->process_dom($plaze, $el);
    }
  }

  my $usr_els = $dom->getElementsByTagName('user');
  if($usr_els) {
    my $el = $usr_els->[0];
    if($el) {
      my $user = Net::Plazes::User->new({
					 usergent => $self->useragent(),
					});
      $obj->{user} = $user->process_dom($user, $el);
    }
  }

  return $obj;
}

sub user {
  my $self = shift;

  if(!$self->{user}) {
    $self->read();
    $self->{user} ||= Net::Plazes::User->new({
					      useragent => $self->useragent(),
					      id        => $self->user_id(),
					     });
  }

  return $self->{user};
}

sub plaze {
  my $self = shift;

  if(!$self->{plaze}) {
    $self->read();
    $self->{plaze} ||= Net::Plazes::Plaze->new({
						useragent => $self->useragent(),
						id        => $self->plaze_id(),
					       });
  }

  return $self->{plaze};
}


1;
__END__