File Coverage

blib/lib/Tapper/Producer/NewestPackage.pm

Criterion	Covered	Total	%
statement	2	4	50.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	4	6	66.6

## no critic (RequireUseStrict)
package Tapper::Producer::NewestPackage;
BEGIN {
  $Tapper::Producer::NewestPackage::AUTHORITY = 'cpan:TAPPER';
}
{
  $Tapper::Producer::NewestPackage::VERSION = '4.1.3';
}
# ABSTRACT: produce preconditions via find latest changed file

        use Moose;
        use YAML;

        use 5.010;

        use Tapper::Config;
        use File::stat;


        sub younger { stat($a)->mtime() <=> stat($b)->mtime() }


        sub produce {
                my ($self, $job, $produce) = @_;

                my $source_dir    = $produce->{source_dir};
                my @files = sort younger <$source_dir/*>;
                return {
                        error => 'No files found in $source_dir',
                       } if not @files;
                my $use_file = pop @files;

                my $nfs = Tapper::Config->subconfig->{paths}{prc_nfs_mountdir};
                die "$use_file not available to Installer" unless $use_file=~/^$nfs/;

                my $retval = [{
                               precondition_type => 'package',
                               filename => $use_file,
                              },];
                return {
                        precondition_yaml => Dump(@$retval),
                       };
        }

1;

__END__

=pod

=encoding utf-8

=head1 NAME

Tapper::Producer::NewestPackage - produce preconditions via find latest changed file

=head2 younger

Comparator for files by mtime.

=head2 produce

Produce resulting precondition.

=head1 AUTHOR

AMD OSRC Tapper Team <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2013 by Advanced Micro Devices, Inc..

This is free software, licensed under:

  The (two-clause) FreeBSD License

=cut