if ($rw) {
$dbh->begin_work;
create_tables($dbh);
- $self->created_at(time) unless $self->created_at;
+ unless ($self->created_at) {
+ my $t;
+ if (blessed($ibx) &&
+ -f "$ibx->{inboxdir}/inbox.config.example") {
+ $t = (stat(_))[9]; # mtime set by "curl -R"
+ }
+ $self->created_at($t // time);
+ }
$self->num_highwater(max($self));
$dbh->commit;
}
sub num_highwater {
my ($self, $num) = @_;
- my $high = $self->{num_highwater} ||=
- $self->meta_accessor('num_highwater');
+ my $high = $self->meta_accessor('num_highwater');
if (defined($num) && (!defined($high) || ($num > $high))) {
- $self->{num_highwater} = $num;
+ $high = $num;
$self->meta_accessor('num_highwater', $num);
}
- $self->{num_highwater};
+ $high
}
sub mid_insert {