File Coverage

lib/Rex/Virtualization/Base.pm

Criterion	Covered	Total	%
statement	16	23	69.5
branch	1	2	50.0
condition	0	3	0.0
subroutine	5	6	83.3
pod	0	2	0.0
total	22	36	61.1

#
# (c) Jan Gehring
#

package Rex::Virtualization::Base;

use v5.12.5;
use warnings;

our $VERSION = '1.14.2.3'; # TRIAL 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;