File Coverage

blib/lib/Games/Lacuna/Task/Action/StarCacheExport.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

package Games::Lacuna::Task::Action::StarCacheExport;

use 5.010;
our $VERSION = $Games::Lacuna::Task::VERSION;

use Moose -traits => 'NoAutomatic';
extends qw(Games::Lacuna::Task::Action);

has 'database' => (
    is              => 'rw',
    isa             => 'Path::Class::File',
    required        => 1,
    coerce          => 1,
    documentation   => 'Exported database file [Required]',
);

sub description {
    return q[Export the star cache database];
}

sub run {
    my ($self) = @_;

    my $export_file = $self->database->stringify;

    $self->log('notice','Start exporting star cache to %s',$export_file);

    $self->client->storage->dbh->sqlite_backup_to_file( $export_file );

    my $export_dbh = DBI->connect("dbi:SQLite:dbname=$export_file","","",{ RaiseError => 1 });

    # Empty cache
    $export_dbh->do('DELETE FROM cache');

    # Empty excavator cache
    $export_dbh->do('UPDATE body SET is_excavated = NULL WHERE is_excavated IS NOT NULL');

    $export_dbh->close();

    $self->log('notice','Finished exporting star cache to %s',$export_file);
}

__PACKAGE__->meta->make_immutable;
no Moose;
1;