Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
1234567891011121314151617181920212223242526package Lacuna::RPC::Building::DeployedBleeder;
use Moose;use utf8;no warnings qw(uninitialized);extends 'Lacuna::RPC::Building';
sub app_url { return '/deployedbleeder';}
sub model_class { return 'Lacuna::DB::Result::Building::DeployedBleeder';}
around demolish => sub { my ($orig, $self, $session_id, $building_id) = @_; my $session = $self->get_session({session_id => $session_id, building_id => $building_id }); $session->check_captcha; return $orig->($self, $session, $building_id);};
no Moose;__PACKAGE__->meta->make_immutable;