File Coverage

blib/lib/File/ChangeNotify/Watcher.pm

Criterion	Covered	Total	%
statement	42	44	95.4
branch	10	12	83.3
condition			n/a
subroutine	11	12	91.6
pod	1	2	50.0
total	64	70	91.4

package File::ChangeNotify::Watcher;

use strict;
use warnings;
use namespace::autoclean;

our $VERSION = '0.29';

use File::ChangeNotify::Event;
use Module::Runtime qw( use_module );
use Types::Standard qw( ArrayRef Bool ClassName CodeRef Num RegexpRef Str );
use Type::Utils -all;

use Moo::Role;

has filter => (
    is      => 'ro',
    isa     => RegexpRef,
    default => sub {qr/.*/},
);

#<<<
my $dir_t = subtype as Str,
    where { -d $_ },
    message { "$_ is not a valid directory" };

my $array_of_dirs_t = subtype as ArrayRef[Str],
    where {
        map {-d} @{$_};
    },
    message {"@{$_} is not a list of valid directories"};

coerce $array_of_dirs_t,
    from $dir_t,
    via { [$_] };
#>>>

has directories => (
    is       => 'ro',
    writer   => '_set_directories',
    isa      => $array_of_dirs_t,
    required => 1,
    coerce   => 1,
);

has follow_symlinks => (
    is      => 'ro',
    isa     => Bool,
    default => 0,
);

has event_class => (
    is      => 'ro',
    isa     => ClassName,
    default => 'File::ChangeNotify::Event',
);

has sleep_interval => (
    is      => 'ro',
    isa     => Num,
    default => 2,
);

my $files_or_regexps_or_code_t
    = subtype as ArrayRef [ Str | RegexpRef | CodeRef ];

has exclude => (
    is      => 'ro',
    isa     => $files_or_regexps_or_code_t,
    default => sub { [] },
);

sub BUILD {
    my $self = shift;

    use_module( $self->event_class() );
}

sub new_events {
    my $self = shift;

    return $self->_interesting_events();
}

## no critic (Subroutines::ProhibitUnusedPrivateSubroutines)
sub _path_is_excluded {
    my $self = shift;
    my $path = shift;

    foreach my $excluded ( @{ $self->exclude } ) {
        if ( my $ref = ref $excluded ) {
            if ( $ref eq 'Regexp' ) {
                return 1 if $path =~ /$excluded/;
            }
            elsif ( $ref eq 'CODE' ) {
                local $_ = $path;
                return 1 if $excluded->($path);
            }
        }
        else {
            return 1 if $path eq $excluded;
        }
    }

    return;
}

sub _remove_directory {
    my $self = shift;
    my $dir  = shift;

    $self->_set_directories(
        [ grep { $_ ne $dir } @{ $self->directories() } ] );
}
## use critic

1;

# ABSTRACT: Role consumed by all watchers

__END__