File Coverage

blib/lib/PerlGuard/Agent/Monitors.pm
Criterion Covered Total %
statement 9 14 64.2
branch n/a
condition n/a
subroutine 3 8 37.5
pod 0 5 0.0
total 12 27 44.4


line stmt bran cond sub pod time code
1             package PerlGuard::Agent::Monitors;
2 1     1   565 use Moo;
  1         2  
  1         5  
3 1     1   256 use PerlGuard::Agent::LexWrap;
  1         2  
  1         5  
4 1     1   21228 use Module::Loaded();
  1         1701  
  1         259  
5              
6             has agent => ( is => 'ro', required => 1, weak_ref => 1);
7             has overrides => ( is => 'rw', default => sub { [] });
8              
9             sub is_module_loaded {
10 0     0 0   my $self = shift;
11 0           my $module_name = shift;
12              
13 0           Module::Loaded::is_loaded($module_name)
14              
15             }
16              
17             sub start_monitoring {
18 0     0 0   die "Implement in sublass"
19             }
20              
21             sub stop_monitoring {
22 0     0 0   die "Implement in subclass"
23             }
24              
25       0 0   sub inform_agent_of_event {
26              
27             }
28              
29       0 0   sub die_unless_suitable {
30            
31             }
32              
33             1;