12855237439

Committed 19 Jan 2025 04:18PM UTC coverage: 50.626% (-0.01%) from 50.636%

Build # 12855237439

Build Type

push

github

Committed by

ferki

Commit Message

Restore additional perlcritic policies

Require Perl::Critic::Pulp explicitly, since
Perl::Critic::Community-1.0.4 does not pull it in anymore.

Run Details

9948 of 19650 relevant lines covered (50.63%)

98.99 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

50.0

/lib/Rex/Virtualization/Base.pm

#
# (c) Jan Gehring <jan.gehring@gmail.com>
#

package Rex::Virtualization::Base;

use v5.12.5;
use warnings;

our $VERSION = '9999.99.99_99'; # VERSION

sub new {
  my $that  = shift;
  my $proto = ref($that) || $that;
  my $self  = {@_};

  bless( $self, $proto );

  return $self;
}

sub execute {
  my ( $self, $action, $vmname, @opt ) = @_;

  my $mod = ref($self) . "::$action";
  eval "use $mod;";

  if ($@) {
    Rex::Logger::info("No action $action available.");
    die("No action $action available.");
  }

  return $mod->execute( $vmname, @opt );

}

1;

1	#
2	# (c) Jan Gehring <jan.gehring@gmail.com>
3	#
4
5	package Rex::Virtualization::Base;
6
7	use v5.12.5;	3✔
8	use warnings;	3✔
9
10	our $VERSION = '9999.99.99_99'; # VERSION
11
12	sub new {
13	my $that = shift;	×
14	my $proto = ref($that) \|\| $that;	×
15	my $self = {@_};	×
16
17	bless( $self, $proto );	×
18
19	return $self;	×
20	}
21
22	sub execute {
23	my ( $self, $action, $vmname, @opt ) = @_;	2✔
24
25	my $mod = ref($self) . "::$action";	2✔
26	eval "use $mod;";	2✔
27
28	if ($@) {	2✔
29	Rex::Logger::info("No action $action available.");	×
30	die("No action $action available.");	×
31	}
32
33	return $mod->execute( $vmname, @opt );	2✔
34
35	}
36
37	1;

RexOps / Rex / 12855237439

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous