Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
1234567891011121314151617181920212223242526272829package Lacuna::DB::ResultSet::Schedule;
use Moose;use utf8;no warnings qw(uninitialized);
extends 'Lacuna::DB::ResultSet';
# Find an existing schedule, and reschedule it#sub reschedule { my ($self, $args) = @_;
my ($schedule) = $self->search({ parent_table => $args->{parent_table}, parent_id => $args->{parent_id}, task => $args->{task}, }); $schedule->delete if defined $schedule;
$schedule = $self->create($args); return $schedule;}
no Moose;__PACKAGE__->meta->make_immutable(inline_constructor => 0);