#!/usr/bin/perl
sub
new
{
my
$class
=
shift
;
bless
{ },
$class
;
}
sub
process
{
my
(
$self
,
$templ_ref
,
$params_ref
,
$output_ref
) =
@_
;
delete
$params_ref
->{
'depshash'
};
for
my
$key
(
sort
keys
%$params_ref
) {
$$output_ref
.=
"$key = $params_ref->{$key}\n"
;
}
return
1;
}
$INC
{
'Template/Fake.pm'
} = $0;
1;
my
$cda_obj
= CPANPLUS::Dist::Arch::Test->new(
name
=>
'Template-Tester'
,
version
=>
'1.342'
);
ok
$cda_obj
->set_tt_module(
'Template::Fake'
);
is
$cda_obj
->get_pkgbuild(), <<
"END_OUTPUT"
;
arch =
'any'
depends =
'perl>=5.010'
distdir = Template-Tester-1.342
is_makemaker = 0
is_modulebuild = 1
makedepends =
md5sums = 12345MD5SUM12345
packager =
$CPANPLUS::Dist::Arch::PACKAGER
pkgdesc = This is a \\
"fake\\"
package
,
for
testing only.
pkgname = perl-template-tester
pkgrel = 1
pkgver = 1.342
skiptest = 0
version =
$CPANPLUS::Dist::Arch::VERSION
END_OUTPUT