File Coverage

blib/lib/Pod/Help.pm
Criterion Covered Total %
statement 14 23 60.8
branch 0 6 0.0
condition 0 2 0.0
subroutine 5 6 83.3
pod 1 1 100.0
total 20 38 52.6


line stmt bran cond sub pod time code
1             ## no critic
2             package Pod::Help;
3              
4 1     1   31046 use 5.006;
  1         4  
  1         40  
5 1     1   6 use strict;
  1         2  
  1         41  
6 1     1   5 use warnings FATAL => 'all';
  1         2  
  1         122  
7              
8             our @ISA = qw();
9              
10             our $VERSION = '1.00';
11              
12             sub import($;@) {
13 1     1   9 my $class = shift;
14 1         11 foreach my $trigger (@_) {
15 0           foreach my $argv (@ARGV) {
16 1     1   5 no warnings 'uninitialized';
  1         1  
  1         218  
17 0 0         $class->help() if $trigger eq $argv;
18             }
19             }
20             }
21              
22             sub help(;@) {
23 0     0 1   my $class = shift;
24 0 0         if (@_) {
25 0           @ARGV = @_;
26             } else {
27 0           @ARGV = ('-F', $0);
28             }
29 0   0       my $rc = eval {
30             require Pod::Perldoc;
31             Pod::Perldoc->run() || 0
32             } || 0;
33 0 0         print STDERR "\n", $@ if length($@);
34 0           exit( $rc );
35             }
36              
37             1;
38             __END__