File Coverage

blib/lib/Hubot/Scripts/backup.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch			n/a
condition	0	2	0.0
subroutine	3	6	50.0
pod	0	1	0.0
total	12	24	50.0

package Hubot::Scripts::backup;
$Hubot::Scripts::backup::VERSION = '0.1.9';
use strict;
use warnings;
use AnyEvent;

my $w;    # consider *WATCHER* lifetime

sub load {
    my ( $class, $robot ) = @_;

    $w = AnyEvent->timer(
        after    => 0,
        interval => $ENV{HUBOT_BACKUP_INTERVAL} || 60 * 60,
        cb       => sub { $robot->brain->save }
    );

    $robot->respond(
        qr/backup$/i,
        sub {
            $robot->brain->save;
            shift->send("OK, saved the robot's brain");
        }
    );
}

1;

=head1 NAME

Hubot::Scripts::backup

=head1 VERSION

version 0.1.9

=head1 SYNOPSIS

    hubot backup - save robot's brain data to external storage immediately if used
    backup (this is *NOT COMMAND*) - save robot's brain data to external storage automatically if used; just work

=head1 CONFIGURATION

=over

=item * HUBOT_BACKUP_INTERVAL

C<3600>(1 hour) is default to use.

=back

=head1 SEE ALSO

=over

=item * L<Hubot::Scripts::redisBrain>

=back

=head1 AUTHOR

Hyungsuk Hong <[e-mail]>

=cut