aboutsummaryrefslogtreecommitdiff
path: root/lib/App/Beam/Backup.pm
blob: 324351304fcac0ee909d75489ef24034e99f5f4a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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->unlock();
}

Return to:

Send suggestions and report system problems to the System administrator.