File Coverage

blib/lib/P9Y/ProcessTable.pm
Criterion Covered Total %
statement 13 17 76.4
branch n/a
condition n/a
subroutine 5 7 71.4
pod 4 4 100.0
total 22 28 78.5


line stmt bran cond sub pod time code
1             package P9Y::ProcessTable;
2              
3             our $AUTHORITY = 'cpan:BBYRD'; # AUTHORITY
4             our $VERSION = '1.08'; # VERSION
5             # ABSTRACT: Portably access the process table
6              
7 3     3   258882 use strict;
  3         6  
  3         77  
8 3     3   15 use warnings;
  3         5  
  3         84  
9              
10 3     3   1534 use P9Y::ProcessTable::Table;
  3         8  
  3         687  
11              
12             my $pptt = P9Y::ProcessTable::Table->new;
13              
14             #############################################################################
15             # Methods
16              
17 0     0 1 0 sub fields { shift; $pptt->fields; }
  0         0  
18 0     0 1 0 sub list { shift; $pptt->list; }
  0         0  
19 1     1 1 92 sub table { shift; $pptt->table; }
  1         11  
20 3     3 1 5818 sub process { shift; $pptt->process(@_); }
  3         81  
21              
22             42;
23              
24             __END__