File Coverage

blib/lib/WebService/Google/Reader/ListElement.pm

Criterion	Covered	Total	%
statement	12	20	60.0
branch	0	2	0.0
condition			n/a
subroutine	4	6	66.6
pod	1	1	100.0
total	17	29	58.6

package WebService::Google::Reader::ListElement;

use strict;
use warnings;
use parent qw(Class::Accessor::Fast);

__PACKAGE__->mk_ro_accessors(qw(
    id categories count firstitemmsec label shared sortid title value
    isBloggerUser userId userEmail
));

sub new {
    my ($class, $ref) = @_;
    my $self = bless $ref, $class;
    if (exists $self->{categories}) {
        for my $cat (@{$self->{categories}}) {
            $cat = __PACKAGE__->new($cat);
        }
    }
    return $self;
}

use overload q("") => sub { $_[0]->id };

1;

__END__