1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
package SReview::Model::Event;
use Moose;
extends 'SReview::Model::DbElement';
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;
|
