package Tapper::MCP::Control;
BEGIN {
$Tapper::MCP::Control::AUTHORITY = 'cpan:TAPPER';
}
{
$Tapper::MCP::Control::VERSION = '4.1.2';
}
use strict;
use warnings;
use Moose;
use Tapper::Config;
use Tapper::Model qw/model/;
extends 'Tapper::MCP';
has testrun => (is => 'ro',
isa => 'Tapper::Schema::TestrunDB::Result::Testrun',
);
around BUILDARGS => sub {
my $orig = shift;
my $class = shift;
my $args;
if ( @_ == 1 and not $_[0] eq 'HASH' ) {
$args = $class->$orig(testrun => $_[0]);
} else {
$args = $class->$orig(@_);
}
if (not ref $args->{testrun}) {
$args->{testrun} = model->resultset('Testrun')->find($args->{testrun});
}
return $args;
};
1;
__END__
=pod
=encoding utf-8
=head1 NAME
Tapper::MCP::Control
=head1 SYNOPSIS
use Tapper::MCP::Control;
=head1 NAME
Tapper::MCP::Control - Shared code for all modules that only handle one
specifid testrun
=head1 FUNCTIONS
=head1 AUTHOR
AMD OSRC Tapper Team, C<< <tapper at amd64.org> >>
=head1 BUGS
None.
=head1 SUPPORT
You can find documentation for this module with the perldoc command.
perldoc Tapper
=head1 ACKNOWLEDGEMENTS
=head1 COPYRIGHT & LICENSE
Copyright 2008-2011 AMD OSRC Tapper Team, all rights reserved.
This program is released under the following license: freebsd
=head1 AUTHOR
AMD OSRC Tapper Team <tapper@amd64.org>
=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