::TaskUtils;
use Moose;
use TaskPipe::Task::ModuleMap;
use Try::Tiny;
use TaskPipe::RunInfo;
use JSON;
use Data::Dumper;
use Log::Log4perl;
use Module::Runtime qw(require_module);
has sm => (is => '
TaskPipe::RunInfo->new;
});
has json_encoder => (is => 'ro', isa => 'JSON', default => sub{
my $json_enc = JSON->new;
$json_enc->canonical;
return $json_enc;
});
has settings => (is =>
= $self->json_encoder->encode( $ref );
} catch {
confess "Serialize error: $_\nref was ".Dumper( $ref );
};
return $serialized;
}
sub deserialize{
my ($self,$json) = @_;
TaskPipe::RunInfo->new;
});
has json_encoder => (is => 'ro', isa => 'JSON', default => sub{
my $json_enc = JSON->new;
$json_enc->canonical;
return $json_enc;
});
sub build_ua{
my
r = Log::Log4perl->get_logger;
$self->clear_cookies;
$logger->info(uc($method)." ".$self->json_encoder->encode(\@params));
my $resp = $self->ua->$method(@params);
return $resp;
}
s
oduleMap;
use MooseX::ClassAttribute;
use TaskPipe::InterpParam;
use TaskPipe::LoggerManager;
use JSON;
use TaskPipe::ThreadManager;
use TaskPipe::Iterator_Array;
use TaskPipe::RunInfo;
use TaskPipe::