The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

use Moose;
has 'name' => (
is => 'ro',
builder => '_get_name',
);
sub _get_name {
return shift->config->get('event');
}
has 'inputdir' => (
is => 'ro',
builder => '_get_inputdir',
lazy => 1,
);
sub _get_inputdir {
my $self = shift;
my $st = $self->dbh->db->dbh->prepare("SELECT inputdir FROM events WHERE name = ?");
$st->execute($self->name);
if($st->rows == 0) {
return $self->name;
}
my $dir = $st->fetchrow_hashref()->{inputdir};
if(!defined($dir)) {
return $self->name;
}
return $dir;
}
no Moose;
1;