File Coverage

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

Criterion	Covered	Total	%
statement	6	22	27.2
branch			n/a
condition	0	2	0.0
subroutine	2	10	20.0
pod	0	8	0.0
total	8	42	19.0

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

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

sub raw_data { +{%{shift->{questionnaire}}} }

sub is_new { not defined shift->id }

sub id    { shift->{questionnaire}->{id}    }
sub event { shift->{questionnaire}->{event} }
sub questions {
    my $self = shift;
    my $questions = $self->{questions} ||= [
        map { WWW::Connpass::Event::Question->inflate(%$_) }
        @{ $self->{questionnaire}->{questions} }
    ];
    return @$questions;
}

sub add_questions {
    my $self = shift;
    $self->update_questions($self->questions, @_);
}

sub update_questions {
    my $self = shift;
    $self->{session}->update_questionnaire($self, @_);
}

1;
__END__