File Coverage

blib/lib/Arepa/Builder/Sbuildfake.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	37	37	100.0

package Arepa::Builder::Sbuildfake;

use strict;
use warnings;

use base qw(Arepa::Builder::Sbuild);

use File::Spec;
use File::Copy;
use File::Basename;

sub _call_sbuild {
    my ($self, $package_spec, $params, $output_dir) = @_;

    my $glob_pattern = File::Basename::basename($package_spec);
    $glob_pattern =~ s/\.dsc//;

    my @compilation_results =
            glob(File::Spec->catfile($self->config('results_from'),
                                     "$glob_pattern*.deb"));
    $self->{last_build_log} = "Checking for results for $glob_pattern in " .
                              $self->config('results_from') . ", found " .
                              (scalar @compilation_results) . " results\n";
    if (@compilation_results) {
        foreach my $file (@compilation_results) {
            copy($file, $output_dir);
        }
        return 0;
    }
    else {
        return 1;
    }
}

1;

__END__