File Coverage

script/perl-info
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             # -----------------------------------------------------------------------------
4             #
5             # This program is free software; you can redistribute it and/or modify it under
6             # the terms of the GNU General Public License as published by the Free Software
7             # Foundation; either version 2 of the License, or (at your option) any later
8             # version.
9             #
10             # -----------------------------------------------------------------------------
11              
12 1     1   2211 use warnings;
  1         8  
  1         88  
13 1     1   12 use strict;
  1         1  
  1         78  
14              
15             our $VERSION = '0.17';
16              
17 1     1   448 use Gentoo::App::PerlInfo;
  0            
  0            
18             my $instance = Gentoo::App::PerlInfo->new_with_args();
19             exit $instance->run;
20              
21             1;
22              
23             __END__