File Coverage

script/orepan2-gc
Criterion Covered Total %
statement 20 20 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 26 27 96.3


line stmt bran cond sub pod time code
1             #!perl
2 1     1   3675 use strict;
  1         1  
  1         54  
3 1     1   4 use warnings;
  1         1  
  1         53  
4 1     1   313 use OrePAN2::Repository;
  1         4  
  1         37  
5 1     1   568 use Pod::Usage;
  1         69591  
  1         190  
6 1     1   988 use Getopt::Long;
  1         20015  
  1         6  
7              
8 1         356286 my $p = Getopt::Long::Parser->new(
9             config => [qw(posix_default no_ignore_case auto_help)]
10             );
11 1         2023 $p->getoptions(
12             'text!' => \my $text,
13             );
14              
15 1 50       944 my $directory = shift(@ARGV) or pod2usage;
16 1         15 my $repository = OrePAN2::Repository->new(
17             directory => $directory,
18             compress_index => !$text,
19             );
20 1         7881 $repository->gc;
21              
22             __END__
23              
24             =head1 SYNOPSIS
25              
26             > orepan2-gc /path/to/darkpan/
27              
28             =head1 DESCRIPTION
29              
30             Remove tar files which do not exist in 02packages.txt.gz
31              
32             =head1 DEVELOPMENT STATUS
33              
34             B<Unstable>
35