File Coverage

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

Criterion	Covered	Total	%
statement	6	31	19.3
branch	0	6	0.0
condition			n/a
subroutine	2	18	11.1
pod	0	15	0.0
total	8	70	11.4

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

sub _method { die 'this is abstruct method' }

sub new {
    my ($class, %args) = @_;
    die "$class is abstract class" if $class eq __PACKAGE__;

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

sub is_new { not exists shift->{id} }

sub cancelled_count          { shift->{cancelled_count}           }
sub id                       { shift->{id}                        }
sub join_fee                 { shift->{join_fee}                  }
sub lottery_count            { shift->{lottery_count}             }
sub max_participants         { shift->{max_participants}          }
sub method                   { shift->{method}                    }
sub name                     { shift->{name}                      }
sub participants_count       { shift->{participants_count}        }
sub place_fee                { shift->{place_fee}                 }
sub total_participants_count { shift->{total_participants_count}  }
sub waitlist_count           { shift->{waitlist_count}            }

1;
__END__