Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
1234567891011121314151617181920package Lacuna::DB::Result::Propositions::MembersOnlyColonization;
use Moose;use utf8;no warnings qw(uninitialized);extends 'Lacuna::DB::Result::Propositions';
before pass => sub { my ($self) = @_; my $law = Lacuna->db->resultset('Lacuna::DB::Result::Laws')->new({ name => $self->name, description => $self->description, type => 'MembersOnlyColonization', station_id => $self->station_id, })->insert;};
no Moose;__PACKAGE__->meta->make_immutable(inline_constructor => 0);