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

package App::Beam::Backup;

use strict;
use Carp;

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

sub run {
    my $self = shift;
    use Data::Dumper;
    # $self->lock();
    # print Dumper([$self->{status}]);
    # $self->status('round', $self->status('round') + 1);
    # $self->status('timestamp', time());
    # $self->unlock();
    $self->set('a.b.c.d.e', 110);
    print Dumper([$self->{conf}]);
    print $self->get('logger.file.timestamp')."\n";
}