view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

        foreach my $path (@{$self->rscan_dir('extsrc', sub {-f})}) {
            my (undef, $dir, $file) = File::Spec->splitpath($path);
            my (undef, @dir) = File::Spec->splitdir($dir);
            my $dirname = join('/', grep {$_ ne ''} @dir);
            if (($dirname eq 'cminpack')
                or ((grep {$_ eq $dirname} ('', qw/src wcslib/)) and (not $exclude{$file}) and (
                    $include{$file}
                    or $file =~ '^[^f].*\.c$'
                    or $file =~ '^.*\.h$'
            ))) {
                $self->copy_if_modified(from => $path, to => File::Spec->catfile('ast', @dir, $file));
            }
        }
    }
    sub ACTION_realclean {
        my $self = shift;
        $self->delete_filetree('ast');
        $self->SUPER::ACTION_realclean(@_);
    }
    sub ACTION_code {
        my $self = shift;