From a02e4ff4cb7cf92485d40a2bae9931a92656e293 Mon Sep 17 00:00:00 2001 From: JT Smith Date: Sun, 19 Dec 2010 17:39:00 -0600 Subject: [PATCH] placebo's now scuttle themselves upon arrival --- lib/Lacuna/DB/Result/Ships/Placebo.pm | 4 ++++ lib/Lacuna/DB/Result/Ships/Placebo2.pm | 3 +++ lib/Lacuna/DB/Result/Ships/Placebo3.pm | 3 +++ lib/Lacuna/DB/Result/Ships/Placebo4.pm | 3 +++ lib/Lacuna/DB/Result/Ships/Placebo5.pm | 3 +++ lib/Lacuna/DB/Result/Ships/Placebo6.pm | 3 +++ lib/Lacuna/Role/Ship/Arrive/Scuttle.pm | 13 +++++++++++++ 7 files changed, 32 insertions(+) create mode 100644 lib/Lacuna/Role/Ship/Arrive/Scuttle.pm diff --git a/lib/Lacuna/DB/Result/Ships/Placebo.pm b/lib/Lacuna/DB/Result/Ships/Placebo.pm index 2be8c934..0cb7c15e 100644 --- a/lib/Lacuna/DB/Result/Ships/Placebo.pm +++ b/lib/Lacuna/DB/Result/Ships/Placebo.pm @@ -19,6 +19,10 @@ use constant base_hold_size => 0; use constant build_tags => [qw(War)]; with "Lacuna::Role::Ship::Send::Planet"; +with "Lacuna::Role::Ship::Send::Inhabited"; +with "Lacuna::Role::Ship::Send::NotIsolationist"; +with "Lacuna::Role::Ship::Arrive::Scuttle"; + no Moose; __PACKAGE__->meta->make_immutable(inline_constructor => 0); diff --git a/lib/Lacuna/DB/Result/Ships/Placebo2.pm b/lib/Lacuna/DB/Result/Ships/Placebo2.pm index daca44a3..b9139544 100644 --- a/lib/Lacuna/DB/Result/Ships/Placebo2.pm +++ b/lib/Lacuna/DB/Result/Ships/Placebo2.pm @@ -20,6 +20,9 @@ use constant build_tags => [qw(War)]; use constant type_formatted => 'Placebo II'; with "Lacuna::Role::Ship::Send::Planet"; +with "Lacuna::Role::Ship::Send::Inhabited"; +with "Lacuna::Role::Ship::Send::NotIsolationist"; +with "Lacuna::Role::Ship::Arrive::Scuttle"; no Moose; __PACKAGE__->meta->make_immutable(inline_constructor => 0); diff --git a/lib/Lacuna/DB/Result/Ships/Placebo3.pm b/lib/Lacuna/DB/Result/Ships/Placebo3.pm index edad3c29..f5277e14 100644 --- a/lib/Lacuna/DB/Result/Ships/Placebo3.pm +++ b/lib/Lacuna/DB/Result/Ships/Placebo3.pm @@ -20,6 +20,9 @@ use constant build_tags => [qw(War)]; use constant type_formatted => 'Placebo III'; with "Lacuna::Role::Ship::Send::Planet"; +with "Lacuna::Role::Ship::Send::Inhabited"; +with "Lacuna::Role::Ship::Send::NotIsolationist"; +with "Lacuna::Role::Ship::Arrive::Scuttle"; no Moose; __PACKAGE__->meta->make_immutable(inline_constructor => 0); diff --git a/lib/Lacuna/DB/Result/Ships/Placebo4.pm b/lib/Lacuna/DB/Result/Ships/Placebo4.pm index 56638450..b6e32b6b 100644 --- a/lib/Lacuna/DB/Result/Ships/Placebo4.pm +++ b/lib/Lacuna/DB/Result/Ships/Placebo4.pm @@ -20,6 +20,9 @@ use constant build_tags => [qw(War)]; use constant type_formatted => 'Placebo IV'; with "Lacuna::Role::Ship::Send::Planet"; +with "Lacuna::Role::Ship::Send::Inhabited"; +with "Lacuna::Role::Ship::Send::NotIsolationist"; +with "Lacuna::Role::Ship::Arrive::Scuttle"; no Moose; __PACKAGE__->meta->make_immutable(inline_constructor => 0); diff --git a/lib/Lacuna/DB/Result/Ships/Placebo5.pm b/lib/Lacuna/DB/Result/Ships/Placebo5.pm index 813ac701..c1aeb174 100644 --- a/lib/Lacuna/DB/Result/Ships/Placebo5.pm +++ b/lib/Lacuna/DB/Result/Ships/Placebo5.pm @@ -20,6 +20,9 @@ use constant build_tags => [qw(War)]; use constant type_formatted => 'Placebo V'; with "Lacuna::Role::Ship::Send::Planet"; +with "Lacuna::Role::Ship::Send::Inhabited"; +with "Lacuna::Role::Ship::Send::NotIsolationist"; +with "Lacuna::Role::Ship::Arrive::Scuttle"; no Moose; __PACKAGE__->meta->make_immutable(inline_constructor => 0); diff --git a/lib/Lacuna/DB/Result/Ships/Placebo6.pm b/lib/Lacuna/DB/Result/Ships/Placebo6.pm index 35d7613e..50e58d31 100644 --- a/lib/Lacuna/DB/Result/Ships/Placebo6.pm +++ b/lib/Lacuna/DB/Result/Ships/Placebo6.pm @@ -20,6 +20,9 @@ use constant build_tags => [qw(War)]; use constant type_formatted => 'Placebo VI'; with "Lacuna::Role::Ship::Send::Planet"; +with "Lacuna::Role::Ship::Send::Inhabited"; +with "Lacuna::Role::Ship::Send::NotIsolationist"; +with "Lacuna::Role::Ship::Arrive::Scuttle"; no Moose; __PACKAGE__->meta->make_immutable(inline_constructor => 0); diff --git a/lib/Lacuna/Role/Ship/Arrive/Scuttle.pm b/lib/Lacuna/Role/Ship/Arrive/Scuttle.pm new file mode 100644 index 00000000..f57cb041 --- /dev/null +++ b/lib/Lacuna/Role/Ship/Arrive/Scuttle.pm @@ -0,0 +1,13 @@ +package Lacuna::Role::Ship::Arrive::Scuttle; + +use strict; +use Moose::Role; + +after handle_arrival_procedures => sub { + my ($self) = @_; + $self->delete; + confess [-1]; +}; + + +1; -- 2.51.2