File Coverage

blib/lib/Pod/Coverage/ExportOnly.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Pod::Coverage::ExportOnly;
2 4     4   80494 use strict;
  4         9  
  4         146  
3 4     4   22 use Pod::Coverage ();
  4         8  
  4         79  
4 4     4   33 use base qw(Pod::Coverage);
  4         7  
  4         600  
5              
6             sub _get_syms {
7 1     1   1768 my $self = shift;
8 1         2 my $package = shift;
9              
10             # lifted from UNIVERSAL::exports
11 4     4   20 no strict 'refs';
  4         12  
  4         337  
12 3         8 my %exports = map { $_ => 1 } @{$package.'::EXPORT'},
  1         4  
  1         3  
13 1         3 @{$package.'::EXPORT_OK'};
14              
15 1         26 return keys %exports;
16             }
17              
18             1;
19             __END__