File Coverage

blib/lib/P9Y/ProcessTable/Table/Base.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	4	4	100.0
condition	2	3	66.6
subroutine	9	9	100.0
pod	0	2	0.0
total	45	48	93.7

package P9Y::ProcessTable::Table::Base;

our $AUTHORITY = 'cpan:BBYRD'; # AUTHORITY
our $VERSION = '1.06_01'; # VERSION

#############################################################################
# Modules

# use sanity;
use strict qw(subs vars);
no strict 'refs';
use warnings FATAL => 'all';
no warnings qw(uninitialized);

use Moo;

use namespace::clean;
no warnings 'uninitialized';

#############################################################################
# Common Methods (may potentially be overloaded with OS-specific ones)

sub table {
   my $self = shift;
   return map { $self->process($_) } ($self->list);
}

sub process {
   my ($self, $pid) = @_;
   $pid = $$ if (@_ == 1);
   my $hash = $self->_process_hash($pid);
   return unless $hash && $hash->{pid};

   $hash->{_pt_obj} = $self;
   return P9Y::ProcessTable::Process->new($hash);
}

42;