File Coverage

blib/lib/Path/Class/File/Stat.pm

Criterion	Covered	Total	%
statement	39	44	88.6
branch	10	16	62.5
condition	9	12	75.0
subroutine	7	7	100.0
pod	4	4	100.0
total	69	83	83.1

package Path::Class::File::Stat;
use strict;
use warnings;
use base qw( Path::Class::File );

our $VERSION = '0.05';

my $debug = $ENV{PERL_DEBUG} || 0;

sub new {
    my $self = shift->SUPER::new(@_);
    $self->{_stat} = $self->stat;
    return $self;
}

sub use_md5 {
    my $self = shift;
    if ( exists $self->{_md5} ) {
        $debug and warn "_md5 exists: $self->{_md5}";
        return $self->{_md5};
    }
    require Digest::MD5;
    $self->{_md5} = Digest::MD5::md5_hex( $self->slurp );
    return $self->{_md5};
}

sub changed {
    my $self = shift;
    my ( $old_sig, $new_sig, $sig_changed, $io_changed, $mtime_changed,
        $size_changed );
    if ( exists $self->{_md5} ) {
        $old_sig = $self->{_md5};
        $new_sig = Digest::MD5::md5_hex( $self->slurp );
        $debug and warn "old_sig=$old_sig new_sig=$new_sig";
        $sig_changed = $old_sig ne $new_sig;
    }
    my $new_stat = $self->stat;
    my $old_stat = $self->{_stat};

    $io_changed = ( $old_stat->dev ne $new_stat->dev
            && $old_stat->ino ne $new_stat->ino );
    $mtime_changed = $old_stat->mtime ne $new_stat->mtime;
    $size_changed  = $old_stat->size ne $new_stat->size;

    if ($debug) {
        require Data::Dump;
        Data::Dump::dump($new_stat);
        Data::Dump::dump($old_stat);

        #Data::Dump::dump($self);
    }

    if ( $io_changed || $mtime_changed || $size_changed || $sig_changed ) {
        $debug and warn "$self is not the file it once was\n";
        $self->{_md5} = $new_sig if $sig_changed;
        return $self->restat;
    }
    return 0;
}

sub restat {
    my $self = shift;
    my $old  = $self->{_stat};
    $self->{_stat} = $self->stat;
    return $old;
}

1;

__END__