Branch Coverage

blib/lib/PerlGuard/Agent.pm
Criterion Covered Total %
branch 0 40 0.0


line true false branch
31 0 0 if $self->async_mode
34 0 0 if (defined $CURRENT_PROFILE_UUID) { }
35 0 0 if ($self->profiles->{$CURRENT_PROFILE_UUID}) { }
36 0 0 if ($self->warnings)
37 0 0 if $self->profiles->{$CURRENT_PROFILE_UUID}->has_finished
42 0 0 if ($self->warnings)
48 0 0 if ($self->warnings)
54 0 0 if (scalar @uuids == 1) { }
58 0 0 if ($self->warnings)
72 0 0 if $@
75 0 0 if $self->api_key
88 0 0 if ($intended_profile_uuid and my $profile = $self->profiles->{$intended_profile_uuid}) { }
94 0 0 if ($current_profile and &Scalar::Util::blessed($current_profile)) { }
98 0 0 if ($self->warnings)
112 0 0 if ($intended_profile_uuid and my $profile = $self->profiles->{$intended_profile_uuid}) { }
117 0 0 if ($current_profile and &Scalar::Util::blessed($current_profile)) { }
121 0 0 if ($self->warnings)
147 0 0 if &Scalar::Util::blessed($profile_id)
157 0 0 unless eval "require $monitor; 1"
162 0 0 unless (eval { do { die "skipping loading monitor $monitor" unless eval "require $monitor; 1"; my $monitor = $monitor->new('agent', $self); $monitor->die_unless_suitable; push @{$self->monitors;}, $monitor; 1 } })