package AnyEvent::Inotify::EventReceiver::Debug;
use Moose;
use namespace::autoclean;

with 'AnyEvent::Inotify::EventReceiver';
use Carp qw(carp);

sub handle_access {
    my ($self,$file) = @_;
    carp "Access $file";
}

sub handle_modify {
    my ($self, $file) = @_;
    carp "Modify $file";
}

sub handle_attribute_change {
    my ($self, $file) = @_;
    carp "Attribute change $file";
}

sub handle_close {
    my ($self, $file) = @_;
    carp "Close $file";
}

sub handle_open {
    my ($self, $file) = @_;
    carp "Open $file";
}

sub handle_move {
    my ($self, $from, $to) = @_;
    carp "Move $from to $to";
}

sub handle_delete {
    my ($self, $file) = @_;
    carp "Delete $file";
}

sub handle_create {
    my ($self, $file) = @_;
    carp "Create $file";
}

1;

__END__

=head1 NAME

AnyEvent::Inotify::EventReceiver::Debug - carps with an infomative message whenever an event is called