Build.PL

#!/usr/bin/env perl
# Build script mainly used to run tests.
#
# Do this once, first:
# perl Build.PL
# Then before each commit, run the test for the module
# you altered:
# ./Build test --verbose --test_files t/appropriatetestscript.t
# And if you did something major, run the whole test suite:
# ./Build test
#
# less often, when interested:
# ./Build testcover
# ./Build testpod
# ./Build testpodcoverage
#
# setenv DEVEL_COVER_OPTIONS '+ignore,5.8.8'
# beforehand if coverage includes extraneous stuff
#

use strict;
use warnings;
use lib 'build_lib';
use MyBuild;

my $build = MyBuild->new(
    module_name  => 'VertRes',
    dist_version => 0.04,
    dist_author  => 'Vertebrate Resequencing group at the Sanger Institute',
    dist_abstract =>
'A collection of modules and scripts for processing and analysing large quantities of sequencing data.',
    license              => 'perl',
    recursive_test_files => 1,
    build_requires       => {
        'Test::Strict' => 0,
        'Test::Most'   => 0
    },
    requires => {
        'Filesys::DfPortable'        => 0,
        'Filesys::DiskUsage'         => 0,
        'File::Fetch'                => 0,
        'File::Rsync'                => 0,
        'File::Temp'                 => 0,
        'Net::FTP::Robust'           => 0,
        'Time::Format'               => 0,
        'IO::Capture::Stderr'        => 0,
        'Math::Random'               => 0,
        'Bio::Assembly::Improvement' => 0,
        'Bio::AutomatedAnnotation'   => 0,
        'Bio::RNASeq'                => 0,
    },
    pm_files     => get_pm_files(),
    script_files => 'scripts'
);

$build->create_vrconfig_file();
$build->create_build_script;

exit;

sub get_pm_files {
    my %pm_files;
    foreach my $module ( check_dir('modules') ) {
        my $in_lib = $module;
        $in_lib =~ s/^modules/lib/;
        $pm_files{$module} = $in_lib;
    }
    return \%pm_files;
}

sub check_dir {
    my $dir = shift;
    opendir( my $dir_handle, $dir );

    my @pm_files;
    foreach my $thing ( readdir($dir_handle) ) {
        if ( $thing =~ /^\.+$/ ) { next; }
        $thing = $dir . "/" . $thing;

        if ( -d $thing ) {
            push( @pm_files, check_dir($thing) );
            next;
        }

        if ( $thing =~ /\.pm$/ ) {
            push( @pm_files, $thing );
        }
    }
    return @pm_files;
}