lib/App/Beam/Backup.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

package App::Beam::Backup;

use strict;
use Carp;

require App::Beam;
our @ISA = qw(App::Beam);

sub run {
    my $self = shift;

    $self->lock();
    foreach my $item (split /\s+/, $self->get('core.items')) {
	my $backend = $self->{backend}{$self->get("item.$item.backend")};
	$backend->backup($item);
    }
    $self->set_result('OK') if $self->result eq 'PENDING';
    $self->unlock();
}

1;