File Coverage

blib/lib/File/ShouldUpdate.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	4	6	66.6
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	35	38	92.1

package File::ShouldUpdate;
$File::ShouldUpdate::VERSION = '0.0.1';
use strict;
use warnings;
use Time::HiRes qw/ stat /;

use parent 'Exporter';
use vars qw/ @EXPORT_OK /;
@EXPORT_OK = qw/ should_update /;

sub should_update
{
    my ( $filename2, $syntax_sugar, @deps ) = @_;
    if ( $syntax_sugar ne ":" )
    {
        die qq#wrong syntax_sugar - not ":"!#;
    }
    my @stat2 = stat($filename2);
    if ( !@stat2 )
    {
        return 1;
    }
    foreach my $d (@deps)
    {
        my @stat1 = stat($d);
        return 1 if ( $stat1[9] > $stat2[9] );
    }
    return 0;
}

1;

__END__