package
CPANPLUS::Dist::Arch::Test;
use
warnings;
use
strict;
sub
new
{
my
$class
=
shift
;
my
$self
=
$class
->SUPER::new(
@_
);
$self
->_prepare_status();
$self
->status->prepared(1);
return
$self
;
}
sub
_calc_tarballmd5 {
'12345MD5SUM12345'
}
1;