File Coverage

bin/ubic

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

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

# ABSTRACT: command-line frontend to ubic services


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

use Ubic;
use Ubic::Cmd;

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

my $force;
GetOptions(
    'f|force' => \$force,
) or pod2usage(2);

if (
    not @ARGV
    or @ARGV == 1 and $ARGV[0] eq 'help'
) {
    pod2usage(2);
}

my $command = shift @ARGV;
if (@ARGV) {
    Ubic::Cmd->run({
        name => [@ARGV],
        command => $command,
        force => $force,
    });
}
else {
    Ubic::Cmd->run({
        name => undef,
        command => $command,
        force => $force,
    });
}

__END__