view release on metacpan or  search on metacpan

lib/Games/Lacuna/Client/Body.pm  view on Meta::CPAN

package Games::Lacuna::Client::Body;
{
  $Games::Lacuna::Client::Body::VERSION = '0.003';
}
use 5.0080000;
use strict;
use warnings;
use Carp 'croak';

use Games::Lacuna::Client;
use Games::Lacuna::Client::Module;
our @ISA = qw(Games::Lacuna::Client::Module);

use Class::XSAccessor {
  getters => [qw(body_id)],
};

sub api_methods {
  return {
    get_buildings       => { default_args => [qw(session_id body_id)] },
    rearrange_buildings => { default_args => [qw(session_id body_id)] },
    get_status          => { default_args => [qw(session_id body_id)] },
    get_buildable       => { default_args => [qw(session_id body_id)] },
    rename              => { default_args => [qw(session_id body_id)] },
    abandon             => { default_args => [qw(session_id body_id)] },
  };
}

sub new {
  my $class = shift;
  my %opt = @_;
  my $self = $class->SUPER::new(@_);
  bless $self => $class;
  $self->{body_id} = $opt{id};
  return $self;
}


__PACKAGE__->init();

1;
__END__

=head1 NAME

Games::Lacuna::Client::Body - The body module

=head1 SYNOPSIS

  use Games::Lacuna::Client;

=head1 DESCRIPTION

=head1 AUTHOR

Steffen Mueller, E<lt>smueller@cpan.orgE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2010 by Steffen Mueller

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.10.0 or,
at your option, any later version of Perl 5 you may have available.

=cut