App-soapcli
view release on metacpan or search on metacpan
inc/Module/Build/My.pm view on Meta::CPAN
14151617181920212223242526272829303132
local
*copy_if_modified
=
sub
{
my
$self
=
shift
;
my
%args
= (
@_
> 3 ? (
@_
) : (
from
=>
shift
,
to_dir
=>
shift
,
flatten
=>
shift
) );
# Only for script/*.pl files
if
(
$args
{from} =~ /\bscript\/.*\.pl$/ and
$args
{to_dir}) {
my
(
undef
,
undef
,
$file
) = File::Spec->splitpath(
$args
{from});
$file
=~ s/\.pl$//;
$args
{to} = File::Spec->catfile(
$args
{to_dir},
$file
);
delete
$args
{to_dir};
return
$self
->SUPER::copy_if_modified(
%args
);
};
return
$self
->SUPER::copy_if_modified(
%args
);
};
$self
->SUPER::process_script_files;
};
1;
( run in 0.224 second using v1.01-cache-2.11-cpan-496ff517765 )