File Coverage

blib/lib/Tapper/PRC.pm

Criterion	Covered	Total	%
statement	21	26	80.7
branch	0	2	0.0
condition			n/a
subroutine	7	8	87.5
pod	1	1	100.0
total	29	37	78.3

package Tapper::PRC;
# git description: v5.0.3-3-g416e1c7

our $AUTHORITY = 'cpan:TAPPER';
# ABSTRACT: Tapper - Program run control for test program automation
$Tapper::PRC::VERSION = '5.0.4';
use strict;
use warnings;

use IO::Socket::INET;
use YAML::Syck;
use Moose;
use Log::Log4perl;
use URI::Escape;

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

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


sub mcp_error
{

        my ($self, $error) = @_;
        $self->log->error($error);
        my $retval = $self->mcp_inform({status => 'error-testprogram', error => $error});
        $self->log->error($retval) if $retval;
        exit 1;
};

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Tapper::PRC - Tapper - Program run control for test program automation

=head1 DESCRIPTION

This distribution implements a program run control for test program
automation. It is part of the Tapper distribution.

=head1 FUNCTIONS

=head2 mcp_error

Log an error and exit.

@param string - messages to send to MCP

@return never returns

=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) 2019 by Advanced Micro Devices, Inc..

This is free software, licensed under:

  The (two-clause) FreeBSD License

=cut