File Coverage

bin/ubic-admin
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/env perl
2             package ubic_admin;
3             $ubic_admin::VERSION = '1.60';
4 1     1   1046 use strict;
  1         2  
  1         25  
5 1     1   2 use warnings;
  1         1  
  1         26  
6              
7             # ABSTRACT: ubic administration script
8              
9              
10 1     1   4 use Pod::Usage;
  1         1  
  1         61  
11 1     1   4 use Ubic::Admin::Setup;
  1         2  
  1         52  
12              
13             return 1 if caller;
14              
15             my $command = shift @ARGV;
16              
17             if (not defined $command or $command ne 'setup') {
18             pod2usage(2);
19             }
20              
21             Ubic::Admin::Setup::setup();
22              
23             __END__