File Coverage

blib/lib/Linux/Inotify/Event.pm

Criterion	Covered	Total	%
statement	27	32	84.3
branch	1	2	50.0
condition			n/a
subroutine	7	9	77.7
pod	0	4	0.0
total	35	47	74.4

package Linux::Inotify::Event;

use strict;
use warnings;

sub new($$$) {
   my $class = shift;
   my $notifier = shift;
   my $raw_event = shift;
   my $self = { notifier => $notifier };
   (my $wd, $self->{mask}, $self->{cookie}, $self->{len}) =
      unpack 'iIII', $raw_event;
   $self->{watch} = $notifier->find($wd);
   $self->{name} = unpack 'Z*', substr($raw_event, 16, $self->{len});
   use Linux::Inotify;
   if ($self->{mask} & Linux::Inotify::DELETE_SELF) {
      $self->{watch}->invalidate();
   }
   return bless $self, $class;
}

sub fullname($) {
   my $self = shift;
   return $self->{watch}->{name} . '/' . $self->{name};
}

sub add_watch($) {
   my $self = shift;
   return $self->{watch}->clone($self->fullname());
}

my %reverse;

INIT {
   %reverse = (
      0x00000001 => 'access',
      0x00000002 => 'modify',
      0x00000004 => 'attrib',
      0x00000008 => 'close_write',
      0x00000010 => 'close_nowrite',
      0x00000020 => 'open',
      0x00000040 => 'moved_from',
      0x00000080 => 'moved_to',
      0x00000100 => 'create',
      0x00000200 => 'delete',
      0x00000400 => 'delete_self',
      0x00002000 => 'unmount',
      0x00004000 => 'q_overflow',
      0x00008000 => 'ignored',
   );
   my %reverse_copy = %reverse;
   while(my ($key, $value) = each %reverse_copy) {
      use Linux::Inotify;
      $reverse{Linux::Inotify::ISDIR | $key} = "isdir | $value";
   }
}

sub print(%) {
   my $self = shift;
   printf "fd: %d, wd: %d, %21s, cookie: 0x%08x, len: %3d, name: '%s'\n",
      $self->{notifier}->{fd}, $self->{watch}->{wd}, $reverse{$self->{mask}},
      $self->{cookie}, $self->{len}, $self->fullname();
}

1;