File Coverage

blib/script/copylink
Criterion Covered Total %
statement 20 20 100.0
branch 4 8 50.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 30 34 88.2


line stmt bran cond sub pod time code
1             #!/usr/local/bin/perl
2            
3 1     1   154233 use strict;
  1         2  
  1         55  
4 1     1   6 use warnings;
  1         1  
  1         67  
5 1     1   947 use Getopt::Long qw(GetOptions :config posix_defaults);
  1         19503  
  1         7  
6 1     1   1012 use Pod::Usage;
  1         93366  
  1         152  
7 1     1   630 use File::Copy::Link qw(copylink);
  1         5  
  1         226  
8            
9             main() unless caller;
10            
11             sub main {
12 1 50   1   243636 GetOptions (
13             'h|help' => \my $help,
14             'm|man' => \my $manual,
15             ) or
16             pod2usage();
17            
18 1 50       771 pod2usage(1) if $help;
19 1 50       4 pod2usage(-verbose=>2) if $manual;
20 1 50       4 pod2usage("$0: no links") unless @ARGV;
21            
22 1         9 copylink for @ARGV;
23             }
24            
25             __END__