From a8465000ef894203a9cb5b785ca44c130905ddc2 Mon Sep 17 00:00:00 2001 From: JT Smith Date: Sat, 18 Dec 2010 10:53:51 -0600 Subject: [PATCH] leftovers --- lib/Lacuna/Role/Ship/Send/LoadWithWaste.pm | 43 ---------------------- 1 file changed, 43 deletions(-) delete mode 100644 lib/Lacuna/Role/Ship/Send/LoadWithWaste.pm diff --git a/lib/Lacuna/Role/Ship/Send/LoadWithWaste.pm b/lib/Lacuna/Role/Ship/Send/LoadWithWaste.pm deleted file mode 100644 index 829b13fb..00000000 --- a/lib/Lacuna/Role/Ship/Send/LoadWithWaste.pm +++ /dev/null @@ -1,43 +0,0 @@ -package Lacuna::Role::Ship::Send::LoadWithSpies; - -use strict; -use Moose::Role; - -after send => sub { - my $self = shift; - my $arrives = DateTime->now->add(seconds=>$self->calculate_travel_time($self->foreign_body)); - my @spies; - foreach my $spy (@{$self->get_available_spies_to_send}) { - $spy->available_on($arrives); - $spy->on_body_id($self->foreign_body_id); - $spy->task('Travelling'); - $spy->started_assignment(DateTime->now); - $spy->update; - push @spies, $spy->id; - } - $self->payload({ spies => \@spies }); - $self->update; -}; - -after can_send_to_target => sub { - my ($self, $target) = @_; - confess [ 1002, 'You have no idle spies to send.'] unless (scalar(@{$self->get_available_spies_to_send})); -}; - -sub get_available_spies_to_send { - my $self = shift; - my $body = $self->body; - my $spies = Lacuna->db->resultset('Lacuna::DB::Result::Spies')->search( - {task => ['in','Idle','Training'], on_body_id=>$body->id, empire_id=>$body->empire->id}, - ); - my @spies; - while (my $spy = $spies->next) { - if ($spy->is_available) { - push @spies, $spy; - last if (scalar(@spies) >= $self->max_occupants); - } - } - return \@spies; -} - -1; -- 2.54.0