File Coverage

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

Criterion	Covered	Total	%
statement	6	18	33.3
branch			n/a
condition			n/a
subroutine	2	12	16.6
pod	0	10	0.0
total	8	40	20.0

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

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

sub answer {
    my ($self, $index) = @_;
    return $self->{"answer_$index"};
}

sub waitlist_name { shift->{waitlist_name} }
sub username      { shift->{username}      }
sub nickname      { shift->{nickname}      }
sub comment       { shift->{comment}       }
sub registration  { shift->{registration}  }
sub attendance    { shift->{attendance}    }
sub updated_at    { shift->{updated_at}    }
sub receipt_id    { shift->{receipt_id}    }

1;
__END__