Mark Grimes > AnyEvent-Filesys-Notify > AnyEvent::Filesys::Notify::Event

Download:
AnyEvent-Filesys-Notify-1.15.tar.gz

Dependencies

Annotate this POD

CPAN RT

Open  2
View/Report Bugs
Source  

NAME ^

AnyEvent::Filesys::Notify::Event - Object to report changes in the monitored filesystem

VERSION ^

version 1.15

SYNOPSIS ^

    use AnyEvent::Filesys::Notify;

    my $notifier = AnyEvent::Filesys::Notify->new(
        dir      => [ qw( this_dir that_dir ) ],
        interval => 2.0,    # Optional depending on underlying watcher
        cb       => sub {
            my (@events) = @_;

            for my $event (@events){
                process_created_file($event->path)  if $event->is_created;
                process_modified_file($event->path) if $event->is_modified;
                process_deleted_file($event->path)  if $event->is_deleted;
            }
        },
    );

DESCRIPTION ^

Simple object to encapsulate information about the filesystem modifications.

METHODS ^

path()

    my $modified_file = $event->path();

Returns the path to the modified file. This is the path as given by the user, ie not modified by abs_path.

type()

    my $modificaiton_type = $event->type();

Returns the type of change made to the file or directory. Will be one of created, modified, or deleted.

is_dir()

    my $is_dir  = $event->is_dir();

Returns a true value if the path is a directory.

is_created()

    do_something($event) if $event->is_created;

True if $event->type eq 'created'.

is_modified()

    do_something($event) if $event->is_modified;

True if $event->type eq 'modified'.

is_deleted()

    do_something($event) if $event->is_deleted;

True if $event->type eq 'deleted'.

SEE ALSO ^

AnyEvent::Filesys::Notify

BUGS ^

Please report any bugs or suggestions at http://rt.cpan.org/

AUTHOR ^

Mark Grimes, <mgrimes@cpan.org>

COPYRIGHT AND LICENSE ^

This software is copyright (c) 2014 by Mark Grimes, <mgrimes@cpan.org>.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

syntax highlighting: