Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
12345678910111213141516171819202122232425262728293031323334package Lacuna::DB::ResultBase;
use namespace::autoclean -except => ['meta'];
use base 'DBIx::Class::Core';
__PACKAGE__->load_components('TimeStamp', 'InflateColumn::DateTime', 'InflateColumn::Serializer', 'Core');
# override default DBIx::Class constructor to set defaults from schemasub new { my $class = shift; my $self = $class->SUPER::new(@_); foreach my $col ($self->result_source->columns) { my $default = $self->result_source->column_info($col)->{default_value}; if (defined $default && !defined $self->$col()) { $self->$col($default); }
# if the class has a method for _default_$col, call it to determine the default # in code. if (!defined $self->$col() && (my $can = $self->can("_default_$col"))) { $self->$col($can->($self)); } } return $self;}
sub random { my $self = shift; return $self->search( undef, { order_by => 'rand()' })->first;}
1;