WWW-Connpass
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
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} }
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__
=pod
=encoding utf-8
=head1 NAME
WWW::Connpass::Place - TODO
=head1 SYNOPSIS
use WWW::Connpass::Place;
=head1 DESCRIPTION
TODO
=head1 SEE ALSO
L<perl>
=head1 LICENSE
Copyright (C) karupanerura.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=head1 AUTHOR
karupanerura E<lt>karupa@cpan.orgE<gt>
=cut
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.487 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )