File Coverage

blib/lib/WWW/Connpass/Event/Participants.pm

Criterion	Covered	Total	%
statement	9	17	52.9
branch			n/a
condition			n/a
subroutine	3	6	50.0
pod	0	3	0.0
total	12	26	46.1

package WWW::Connpass::Event::Participants;
use strict;
use warnings;

use WWW::Connpass::Event::Participant;

sub new {
    my $class = shift;
    bless {@_} => $class;
}

sub label {
    my ($self, $key) = @_;
    return $self->{label}->{$key};
}

sub all {
    my $self = shift;
    return map { WWW::Connpass::Event::Participant->new(%$_) } @{ $self->{rows} };
}

1;
__END__