File Coverage

bin/ubic-watchdog

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

#!/usr/bin/env perl
package ubic_watchdog;
$ubic_watchdog::VERSION = '1.60';
use strict;
use warnings;

# ABSTRACT: watchdog which checks all ubic services.


use Getopt::Long 2.33;
use Pod::Usage;

use Ubic::Watchdog;

return 1 if caller();
unless (grep { $_ eq '/usr/local/bin' } split /:/, $ENV{PATH}) {
    $ENV{PATH} = "/usr/local/bin:$ENV{PATH}";
}

my $compile_timeout = 10;
my $verbose;

GetOptions(
    'v|verbose' => \$verbose,
    'compile-timeout=i' => \$compile_timeout,
) or pod2usage(2);

Ubic::Watchdog->run(
    glob_filter => \@ARGV,
    verbose => $verbose,
    compile_timeout => $compile_timeout,
);

__END__