Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
12345678910111213141516171819202122232425262728293031323334353637383940package Lacuna::DB::Result::Propositions::InstallModule;
use Moose;use utf8;use Data::Dumper;
no warnings qw(uninitialized);extends 'Lacuna::DB::Result::Propositions';
before pass => sub { my ($self) = @_; my $station = $self->station; my $building = $self->station->find_building($self->scratch->{building_id}); if (defined $building) { if ($building->is_upgrading && $building->level < $self->scratch->{to_level}) { $building->finish_upgrade; } } else { $self->pass_extra_message('Unfortunately, by the time the proposition passed, the module had been demolished, effectively nullifying the vote.'); }};
before fail => sub { my ($self) = @_; my $station = $self->station; my $building = $station->find_building($self->scratch->{building_id}); if (defined $building) { $station->add_plan($building->class, 1, $building->level); $building->demolish; } else { $self->pass_extra_message('Unfortunately by the time the proposition passed, the module had been demolished, effectively nullifying the vote.'); }};
no Moose;__PACKAGE__->meta->make_immutable(inline_constructor => 0);