File Coverage

blib/lib/File/Monitor/Lite.pm

Criterion	Covered	Total	%
statement	77	80	96.2
branch	2	4	50.0
condition			n/a
subroutine	14	15	93.3
pod	6	7	85.7
total	99	106	93.4

package File::Monitor::Lite;

use 5.8.6;
our $VERSION = '0.652003';
use strict;
use warnings;
use File::Spec::Functions ':ALL';
use File::Find::Rule;
use File::Monitor;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(
qw(
   monitor
   watch_list
));


sub new {
    my $class = shift;
    my $self = {@_};
    bless $self, $class;
    $self->_init;
    return $self;
}

sub _init{
    my $self = shift;
    -d $self->{in} or die "invalid director\n";
    $self->{in}=rel2abs($self->{in});
    my %w_list =
        map{$_ => 1}
        File::Find::Rule
            ->file()
            ->name($self->{name})
            ->in($self->{in});
    $self->watch_list(\%w_list);
    $self->monitor(new File::Monitor);
    $self->monitor->watch($_)for keys %w_list;
    $self->monitor->scan;
    $self->{observed}=[keys %w_list];
    $self->{created}=[];
    $self->{deleted}=[];
    $self->{modified}=[];
    1;
}



sub check {
    my $self = shift;
    my $w_list=$self->watch_list;
    my @new_file_list =
        File::Find::Rule
        ->file()
        ->name($self->{name})
        ->in($self->{in});
    my @new_files = grep { not exists $$w_list{$_} } @new_file_list;
    my @changes = $self->monitor->scan;
    my @deleted_files =
        map{$_->name}
        grep{$_->deleted} @changes;
    my @modified_files =
        map{$_->name}
        grep{not $_->deleted} @changes;

    # update waching list
    foreach(@new_files){
        $$w_list{$_}=1;
        $self->monitor->watch($_);
    }
    # unwatch deleted files
    foreach(@deleted_files){
        $self->monitor->unwatch($_);
        delete $$w_list{$_};
    }
    $self->monitor->scan;
    # do a scan first before next check
    # else next check $self->monitor cannot find differences


    $self->{watch_list}=($w_list);
    $self->{created}= [@new_files];
    $self->{modified}=[@modified_files];
    $self->{observed}=[ keys %$w_list];
    $self->{deleted}= [@deleted_files];
    $self->{anychange}= (
      scalar(@new_files)+
      scalar(@modified_files)+
      scalar(@deleted_files)) ? 1 : 0;

    1;
}
sub created {
    my $self = shift;
    #return () unless @{$self->{created}};
    return sort @{$self->{created}};
}
sub modified {
    my $self = shift;
    return sort @{$self->{modified}};
}
sub observed {
    my $self = shift;
    return sort @{$self->{observed}};
}
sub deleted {
    my $self = shift;
    return sort @{$self->{deleted}};
}
sub anychange{
    my $self = shift;
    return $self->{anychange};
}

# Preloaded methods go here.

1;
__END__