File Coverage

blib/lib/WWW/Connpass/Place.pm

Criterion	Covered	Total	%
statement	6	21	28.5
branch			n/a
condition			n/a
subroutine	2	13	15.3
pod	0	11	0.0
total	8	45	17.7

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} }
sub name      { shift->{place}->{name} }
sub url       { shift->{place}->{url} }
sub address   { shift->{place}->{address} }
sub lat       { shift->{place}->{lat} }
sub lng       { shift->{place}->{lng} }
sub map_image { shift->{place}->{map_image} }

sub refetch {
    my $self = shift;
    return $self->{session}->refetch_place($self);
}

1;
__END__