Games-Lacuna-Client

 view release on metacpan or  search on metacpan

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

  return {
    find         => { default_args => [qw(session_id)] },
    view_profile => { default_args => [qw(session_id alliance_id)] },
  };
}

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

__PACKAGE__->init();

1;
__END__

=head1 NAME

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

    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__

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

  }
  my $id = delete $opt{id};
  my $self = $class->SUPER::new(%opt);
  $self->{building_id} = $id;
  # We could easily support the body_id as default argument for ->build
  # here, but that would mean you had to specify the body_id at build time
  # or require building construction via $body->building(...)
  # Let's keep it simple for now.
  #$self->{body_id} = $opt{body_id};

  bless $self => $class;
  return $self;
}

sub build {
  my $self = shift;
  # assign id for this object after building
  my $rv = $self->_build(@_);
  $self->{building_id} = $rv->{building}{id};
  return $rv;
}

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

    return {
        fetch => { default_args => [qw(session_id)] },
        solve => { default_args => [qw(session_id guid)] },
    };
}

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

sub fetch {
    my $self = shift;
    my $result = $self->_fetch(@_);
    $self->{guid} = $result->{guid};
    return $result;
}

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

    redefine_species_limits => { default_args => [qw(session_id)] },
    redefine_species        => { default_args => [qw(session_id)] },
    view_species_stats    => { default_args => [qw(session_id)] },
  };
}

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


sub logout {
  my $self = shift;
  my $client = $self->client;
  if (not $client->session_id) {
    return 0;

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

        send_message
      )
    ),
  };
}

#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__

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

    get_star_by_name               => { default_args => [qw(session_id)] },
    get_star_by_xy                 => { default_args => [qw(session_id)] },
    search_stars                   => { default_args => [qw(session_id)] },
  };
}

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

__PACKAGE__->init();

1;
__END__

=head1 NAME

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

        weekly_medal_winners
      )
    ),
  };
}

#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

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