File Coverage

inc/My/SVN/Builder.pm

Criterion	Covered	Total	%
statement	27	99	27.2
branch	5	30	16.6
condition	0	3	0.0
subroutine	9	15	60.0
pod	0	3	0.0
total	41	150	27.3

package My::SVN::Builder;

use File::Basename;

use base 'Module::Build';

use Cwd;
use Config;

sub _run {
    my($self, $prog, @args) = @_;

    $prog = $self->notes('your_make') if $prog eq 'make';

    print "Running $prog @args\n";
    return system($prog, @args) == 0 ? 1 : 0;
}

my $Orig_CWD = cwd;
sub _chdir_to_svn {
    chdir 'src/subversion' or die $!;
}

sub _chdir_to_native {
    _chdir_to_svn;
    chdir "subversion/bindings/swig/perl/native" or die $!;
}

sub _chdir_back {
    chdir $Orig_CWD;
}


sub _svn_provides {
    my $class = shift;

    my @pms = ;

    my %provides;
    for my $pm (@pms) {
        my $module = 'SVN::' . basename($pm, ".pm");

        $provides{$module} = { file => $pm };
    }

    $provides{"SVN::Core"}{version}  = '1.7.17';
    $provides{"Alien::SVN"} = {
        version => '1.7.17.1',
        file    => 'lib/Alien/SVN.pm'
    };

    _chdir_back;

    return \%provides;
}


my %build_to_makemaker = (
   # Some names they have in common
   map {lc($_) => $_} qw(DESTDIR PREFIX INSTALL_BASE UNINST INSTALLDIRS),
);

my %translate_values = (
    installdirs     => {
        core    => "perl",
        site    => 'site',
        vendor  => 'vendor'
    }
);

sub _makemaker_args {
    my $self = shift;

    my $props = $self->{properties};
    my %mm_args;

    for my $key (keys %build_to_makemaker) {
        next unless defined $props->{$key};
        my $value = $props->{$key};
        $value = $translate_values{$key}{$value} if $translate_values{$key};

        $mm_args{$build_to_makemaker{$key}} = $value;
    }

    return map { "$_=$mm_args{$_}" } keys %mm_args;
}

sub _default_configure_args {
    my $self = shift;

    my $props = $self->{properties};
    my $prefix = $props->{install_base} ||
                 $props->{prefix}       ||
                 $Config{siteprefix};

    my %args = (
        '--prefix' => $prefix,
        '--libdir' => File::Spec->catdir(
            $self->install_destination('arch'), 'Alien', 'SVN'
        ),
        PERL   => $^X,
    );

    return join ' ', map { "$_=$args{$_}" } sort keys %args;
}

sub _run_svn_configure {
    my $self = shift;

    _chdir_to_svn;

    my $ok = $self->_run("sh configure @{[$self->notes('configure_args')]}");

    _chdir_back;

    return 1 if $ok;

    warn "configuring SVN failed";
    return 0;
}

sub ACTION_code {
    my $self = shift;

    $self->SUPER::ACTION_code;

    _chdir_to_svn;

    $self->_run('make')
        or do { warn "building subversion failed"; return 0 };
    $self->_run("make swig-pl-lib")
        or do { warn "building swig-pl-lib failed"; return 0 };

    _chdir_back;
    _chdir_to_native;

    $self->_run($^X, "Makefile.PL", $self->_makemaker_args)
        or do { warn "running Makefile.PL failed"; return 0 };
    $self->_run("make") or do { warn "building SV::Core failed"; return 0 };

    _chdir_back;
    _chdir_to_svn;

    $self->_run("make swig-pl")
        or do { warn "building swig-pl failed"; return 0 };

    _chdir_back;

    return 1;
}


sub ACTION_test {
    my $self = shift;

    $self->depends_on('code');

    _chdir_to_native;

    my $test_status = $self->_run("make test");

    _chdir_back;

    return $test_status;
}


sub ACTION_install {
    my $self = shift;

    _chdir_to_svn;

    $self->_run("make install-lib")
        or do { warn "installing libs failed"; return 0 };

    $self->_run("make install-swig-pl-lib")
        or do { warn "installing swig-pl-lib failed"; return 0 };

    _chdir_back;
    _chdir_to_native;

    $self->_run("make install")
        or do { warn "installing SVN::Core failed"; return 0 };

    _chdir_back;

    $self->SUPER::ACTION_install;
}

1;