File Coverage

bin/ubic-update
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


line stmt bran cond sub pod time code
1             #!/usr/bin/env perl
2             package ubic_update;
3             $ubic_update::VERSION = '1.60';
4 1     1   622 use strict;
  1         1  
  1         23  
5 1     1   2 use warnings;
  1         1  
  1         47  
6              
7             # ABSTRACT: update ubic metadata
8              
9              
10 1     1   4 use Getopt::Long 2.33;
  1         5  
  1         16  
11 1     1   79 use Pod::Usage;
  1         1  
  1         76  
12              
13             return 1 if caller();
14              
15             GetOptions() or pod2usage(2);
16             pod2usage(2) if @ARGV;
17              
18 1     1   4 use Ubic::PortMap;
  1         1  
  1         29  
19              
20             Ubic::PortMap::update();
21              
22             __END__