File Coverage

blib/lib/WebService/LiveJournal/List.pm

Criterion	Covered	Total	%
statement	9	30	30.0
branch	0	4	0.0
condition	0	3	0.0
subroutine	3	7	42.8
pod	0	3	0.0
total	12	47	25.5

package WebService::LiveJournal::List;

use strict;
use warnings;
use overload '""' => sub { $_[0]->as_string }, '@{}' => sub { $_[0]->{list} };

# ABSTRACT: List base class for WebService::LiveJournal
our $VERSION = '0.08'; # VERSION


sub new
{
  my $ob = shift;
  my $class = ref($ob) || $ob;
  my $self = bless { list => [] }, $class;
  my %arg = @_;
  $self->{list} = $arg{list} if defined $arg{list};
  $self->init(@_);

  foreach my $member (@{ $self })
  {
    $member->client($arg{client});
  }

  return $self;
}

sub push
{
  my $self = shift;
  push @{ $self }, @_;
}

sub find
{
  my $self = shift;
  my $key = shift;
  foreach my $element (@{ $self })
  {
    return $element if $element->name eq $key;
  }
  return;
}

1;

__END__