File Coverage

blib/lib/Tapper/Installer.pm

Criterion	Covered	Total	%
statement	17	22	77.2
branch	0	2	0.0
condition			n/a
subroutine	6	7	85.7
pod	2	2	100.0
total	25	33	75.7

# git description: v5.0.0-1-g5a9665f

our $AUTHORITY = 'cpan:TAPPER';
# ABSTRACT: Tapper - Install everything needed for a test
$Tapper::Installer::VERSION = '5.0.1';
use strict;
use warnings;

use Moose;
use Socket;
use URI::Escape "uri_escape";

extends 'Tapper::Base';
with 'MooseX::Log::Log4perl';

has cfg => (is      => 'rw',
            default => sub { {} },
           );
with 'Tapper::Remote::Net';


{
        my ($self, $config) = @_;
        $self->{cfg}=$config;
}


{
        my ($self, $msg) = @_;
        if ($self->cfg->{mcp_host}) {
                $self->mcp_send({state => 'error-install', error => $msg});
        } else {
                $self->log->error("Can't inform MCP, no server is set");
        }
        die $msg;
}

1;


=pod

=encoding UTF-8

=head1 NAME

Tapper::Installer - Tapper - Install everything needed for a test

=head2 BUILD

Initialize with config.

=head1 FUNCTIONS

=head2 logdie

Tell the MCP server our current status, then die().

@param string - message to send to MCP

=head1 AUTHORS

=over 4

=item *

AMD OSRC Tapper Team <[e-mail]>

=item *

Tapper Team <[e-mail]>

=back

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2022 by Advanced Micro Devices, Inc.

This is free software, licensed under:

  The (two-clause) FreeBSD License

=cut