File Coverage

lib/Rex/TaskList.pm

Criterion	Covered	Total	%
statement	46	47	97.8
branch	6	8	75.0
condition			n/a
subroutine	10	10	100.0
pod	0	2	0.0
total	62	67	92.5

#
# (c) Jan Gehring
#

package Rex::TaskList;

use v5.12.5;
use warnings;

our $VERSION = '1.14.3'; # VERSION

use Data::Dumper;
use Rex::Config;
use Rex::Logger;
use Rex::Interface::Executor;

use vars qw(%tasks);

# will be set from Rex::Transaction::transaction()
our $task_list = {};

sub create {
  my ($class) = @_;

  # create only one object
  if ( ref($task_list) =~ m/^Rex::TaskList::/ ) {
    Rex::Logger::debug(
      "Returning existing distribution class of type: " . ref($task_list) );
    return $task_list;
  }

  my $type = Rex::Config->get_distributor;
  Rex::Logger::debug("Creating new distribution class of type: $type");

  my $class_name = "Rex::TaskList::$type";

  eval "use $class_name";
  if ($@) {
    die("TaskList module not found: $@");
  }

  $task_list = $class_name->new;

  Rex::Logger::debug(
    "new distribution class of type " . ref($task_list) . " created." );

  return $task_list;
}

sub run {
  my ( $class, $task_name, %option ) = @_;

  $class = ref $class ? $class : $class->create;

  my $task = ref $task_name ? $task_name : $class->get_task($task_name);

  my $old_task = $class->{__current_task__};
  $class->{__current_task__} = $task;

  $_->($task) for @{ $task->{before_task_start} };
  $class->run( $task, %option );
  $_->($task) for @{ $task->{after_task_finished} };

  $class->{__current_task__} = $old_task;
}