Device-Cdio
view release on metacpan or search on metacpan
my $cfile = $basename."_wrap.c";
my $pmfile = File::Spec->catfile($lib,"$basename.pm");
if ($self->up_to_date($swigdeps->{$file}, $cfile) &&
$self->up_to_date($swigdeps->{$file}, $pmfile)) {
next if $self->up_to_date($file, $cfile) &&
$self->up_to_date($cfile, $pmfile);
}
print "swig: $file -> $cfile\n" if $verb;
$self->do_system('swig', '-o', $cfile, '-perl', '-outdir',
$lib, @swig_flags, $file);
$self->copy_if_modified(from => $pmfile, to_dir => 'blib');
}
return 1;
}
sub process_c_files {
my $self = shift;
my $verb = $self->runtime_params('verbose');
$verb = 0 if $self->runtime_params('quiet');
#my @p = @_;
print "process c files\n" if $verb;
my $cfiles = $self->rscan_dir('./',qr/\.c$/);
$libname = File::Spec->catfile('blib', 'arch',$libname);
next if $self->up_to_date($file,$libname);
print "(CC) $file -> $basename.so\n" if $verb;
my $obj = $cb->compile(source => $file,
## include_dirs => $self->config('include_dirs'),
extra_compiler_flags => $self->config('extra_compiler_flags'));
print "CB compiled: $obj\n" if $verb;
my $lib = $cb->link(objects => $obj,
extra_linker_flags => $self->config('extra_linker_flags'));
print "CB generated: $lib\n" if $verb;
$self->copy_if_modified(from => $lib, to => $libname);
}
return 1;
}
!);
#
my $builder = $class->new(
module_name => 'Device::Cdio',
add_to_cleanup => [ 'Device-Cdio-*', 'tmp*', 'cover_db'],
configure_requires => { 'Module::Build' => 0.38 },
( run in 1.178 second using v1.01-cache-2.11-cpan-39bf76dae61 )