use
vars
qw{$VERSION @ISA}
;
BEGIN {
$VERSION
=
'1.12'
;
@ISA
=
'Perl::Dist'
;
}
sub
app_name {
'Test Perl'
}
sub
app_ver_name {
'Test Perl 1 alpha 1'
}
sub
app_publisher {
'Vanilla Perl Project'
}
sub
app_id {
'testperl'
}
sub
output_base_filename {
'test-perl-5.8.9-alpha-1'
}
sub
new {
return
shift
->SUPER::new(
perl_version
=> 589,
@_
,
);
}
sub
run {
my
$self
=
shift
;
$self
->install_c_toolchain;
$self
->install_c_libraries;
$self
->install_perl_589;
$self
->install_distribution(
name
=>
'ADAMK/Config-Tiny-2.12.tar.gz'
,
);
return
1;
}
sub
trace { Test::More::diag(
$_
[1]) }
sub
install_binary {
return
shift
->SUPER::install_binary(
@_
,
trace
=>
sub
{ 1 } );
}
sub
install_distribution {
return
shift
->SUPER::install_distribution(
@_
,
trace
=>
sub
{ 1 } );
}
sub
install_file {
return
shift
->SUPER::install_file(
@_
,
trace
=>
sub
{ 1 } );
}
sub
install_perl_589_bin {
return
shift
->SUPER::install_perl_589_bin(
@_
,
trace
=>
sub
{ 1 } );
}
sub
install_perl_589_toolchain {
return
shift
->SUPER::install_perl_589_toolchain(
@_
,
trace
=>
sub
{ 1 } );
}
1;