File Coverage

blib/lib/File/IfModified.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	6	8	75.0
condition			n/a
subroutine	7	7	100.0
pod	4	4	100.0
total	41	43	95.3

package File::IfModified;
use 5.008001;
use strict;
use Exporter 'import';
our @EXPORT_OK = qw(if_modified touch vtouch vtouch_all);
our $VERSION = qw(0.20);

my %mtime;
sub if_modified{
    my $file = shift;
    my $mtime = (stat $file)[9];
    if ( defined $mtime ){
        if ( exists $mtime{$file} ){
            return if ( $mtime{$file} eq $mtime );
        }
        $mtime{ $file } = $mtime;
        return 1;
    }
    else {
        delete $mtime{$file};
        return 1;
    }
}
sub touch{
    my $file = shift;
    open my $fh, "+>", $file or die "touch: $file";
    close $fh;
    delete $mtime{$file};
}

sub vtouch{
    delete $mtime{$_[0]};
}
sub vtouch_all{
    %mtime = ();
}
1;
__END__