File Coverage

blib/lib/Tapper/Installer.pm

Criterion	Covered	Total	%
statement	16	23	69.5
branch	0	2	0.0
condition			n/a
subroutine	6	8	75.0
pod			n/a
total	22	33	66.6

package Tapper::Installer;
# git description: v4.1.0-1-gbb7ee4f

BEGIN {
  $Tapper::Installer::AUTHORITY = 'cpan:TAPPER';
}
{
  $Tapper::Installer::VERSION = '4.1.1';
}
# ABSTRACT: Tapper - Install everything needed for a test

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';


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


sub logdie
{
        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;

__END__
=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 AUTHOR

AMD OSRC Tapper Team <[e-mail]>

=head1 COPYRIGHT AND LICENSE

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

This is free software, licensed under:

  The (two-clause) FreeBSD License

=cut