AnyEvent-Filesys-Notify

 view release on metacpan or  search on metacpan

samples/simple.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;
use lib qw(lib ../lib);

use AnyEvent::Filesys::Notify;
use AnyEvent::Impl::Perl;  # Could be use Event or use EV, see AnyEvent

my $notifier = AnyEvent::Filesys::Notify->new(
    dirs     => [qw(lib t)],
    interval => 0.5,
    filter   => sub { shift !~ /\.(swp|tmp)$/ },
    cb       => sub {
        my @events = @_;

t/20-scan_fs.t  view on Meta::CPAN

use Test::More;

use strict;
use warnings;
use lib 't/lib';
use Data::Dump;

use TestSupport qw(create_test_files delete_test_files move_test_files
  modify_attrs_on_test_files $dir);
use AnyEvent::Filesys::Notify;

# Setup for tests
create_test_files(qw(1 one/1 two/1));

my $old_fs = AnyEvent::Filesys::Notify->_scan_fs( $dir, "$dir/one" );

t/21-scan_fs_links.t  view on Meta::CPAN

use Test::More;
use Data::Dump qw(ddx);
use strict;
use warnings;
use lib 't/lib';

use TestSupport qw(create_test_files delete_test_files $dir);
use AnyEvent::Filesys::Notify;

# Tests for RT#72849

plan( skip_all => 'symlink not implemented on Win32' ) if $^O eq 'MSWin32';

# Setup for test by creating a broken symlink
create_test_files('original');

t/30-event.t  view on Meta::CPAN

use Test::More tests => 11;

use strict;
use warnings;
use File::Spec;
use lib 't/lib';
$|++;

use TestSupport qw(create_test_files delete_test_files move_test_files
  modify_attrs_on_test_files $dir received_events receive_event);

use AnyEvent::Filesys::Notify;
use AnyEvent::Impl::Perl;

create_test_files(qw(one/1));
create_test_files(qw(two/1));

t/31-notify-fallback.t  view on Meta::CPAN

use Test::More tests => 11;

use strict;
use warnings;
use File::Spec;
use lib 't/lib';
$|++;

use TestSupport qw(create_test_files delete_test_files move_test_files
  modify_attrs_on_test_files $dir received_events receive_event);

use AnyEvent::Filesys::Notify;
use AnyEvent::Impl::Perl;

create_test_files(qw(one/1));
create_test_files(qw(two/1));

t/32-specify-backend.t  view on Meta::CPAN

use Test::More tests => 11;

use strict;
use warnings;
use File::Spec;
use lib 't/lib';
$|++;

use TestSupport qw(create_test_files delete_test_files move_test_files
  modify_attrs_on_test_files $dir received_events receive_event);

use AnyEvent::Filesys::Notify;
use AnyEvent::Impl::Perl;

create_test_files(qw(one/1));
create_test_files(qw(two/1));

t/33-specify-kqueue.t  view on Meta::CPAN

use Test::More;

use strict;
use warnings;
use File::Spec;
use lib 't/lib';
$|++;

use TestSupport qw(create_test_files delete_test_files move_test_files
  modify_attrs_on_test_files $dir received_events receive_event);

use AnyEvent::Filesys::Notify;
use AnyEvent::Impl::Perl;

unless ( $^O eq 'darwin' and eval { require IO::KQueue; 1; } ) {
    plan skip_all => 'Test only on Mac with IO::KQueue';

t/34-parse_events.t  view on Meta::CPAN

use Test::More tests => 10;

use strict;
use warnings;
use File::Spec;
use lib 't/lib';
$|++;

use TestSupport qw(create_test_files delete_test_files move_test_files
  modify_attrs_on_test_files $dir received_events receive_event);

use AnyEvent::Filesys::Notify;
use AnyEvent::Impl::Perl;

create_test_files(qw(one/1));
create_test_files(qw(two/1));

t/35-skip_subdirs.t  view on Meta::CPAN

use Test::More tests => 11;

use strict;
use warnings;
use File::Spec;
use lib 't/lib';
$|++;

use TestSupport qw(create_test_files delete_test_files move_test_files
  modify_attrs_on_test_files $dir received_events receive_event);

use AnyEvent::Filesys::Notify;
use AnyEvent::Impl::Perl;

create_test_files(qw(one/1 two/1 one/sub/1));

t/41-bug-modified-in-cb.t  view on Meta::CPAN

use Test::More tests => 6;

use strict;
use warnings;
use File::Spec;
use lib 't/lib';
$|++;

use TestSupport qw(create_test_files delete_test_files move_test_files
  modify_attrs_on_test_files $dir received_events receive_event);

use AnyEvent::Filesys::Notify;

sub run_test {
    my %extra_config = @_;

t/42-inotify-race.t  view on Meta::CPAN

use Test::More;

# GitHub issue #11
# Previous implementation had a race condition which could miss entities
# created inside a newly create directory.

use strict;
use warnings;
use File::Spec;
use lib 't/lib';
$|++;

use TestSupport qw(create_test_files delete_test_files move_test_files
  modify_attrs_on_test_files $dir received_events receive_event);

use AnyEvent::Filesys::Notify;
use AnyEvent::Impl::Perl;

create_test_files(qw(one/1 two/1));
## ls: one/1 two/1

xt/bench.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;
use lib 't/lib';
use Cwd qw/abs_path/;
use AnyEvent::Filesys::Notify;
use Test::More;

use Benchmark qw(:all);
use File::Find::Rule;
use Path::Iterator::Rule;
use Path::Class::Rule;

diag "This isn't a test, it was a benchmark of file search tools";