WWW-Connpass

 view release on metacpan or  search on metacpan

lib/WWW/Connpass/Event/Participant.pm  view on Meta::CPAN

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}      }

lib/WWW/Connpass/Event/Participants.pm  view on Meta::CPAN

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} };

lib/WWW/Connpass/Event/Question.pm  view on Meta::CPAN

    # normalize answer_frame to options
    if (exists $args{answer_frame}) {
        $args{options} = [
            map { +{ title => $_ } } @{
                delete $args{answer_frame}
            }
        ];
    }

    return bless \%args => $class;
}

sub inflate {
    my ($class, %args) = @_;
    $class .= '::'.$QUESTION_TYPES[$args{answer_type} - 1];
    Module::Load::load($class);
    return $class->new(%args);
}

sub raw_data { +{%{$_[0]}} }

lib/WWW/Connpass/Event/Questionnaire.pm  view on Meta::CPAN

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;

lib/WWW/Connpass/Event/Waitlist.pm  view on Meta::CPAN

    # assertion
    if (exists $args{method}) {
        $args{method} eq $class->_method
            or die "Invalid method: $args{method}";
    }
    else {
        $args{method} = $class->_method;
    }

    return bless \%args => $class;
}

sub inflate {
    my ($class, %args) = @_;
    $class .= '::'.ucfirst $args{method};
    Module::Load::load($class);
    return $class->new(%args);
}

sub raw_data { +{%{$_[0]}} }

lib/WWW/Connpass/Place.pm  view on Meta::CPAN

package WWW::Connpass::Place;
use strict;
use warnings;

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

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

sub edit {
    my $self = shift;
    return $self->{session}->update_place($self, @_);
}

sub id        { shift->{place}->{id} }

 view all matches for this distribution
 view release on metacpan -  search on metacpan