File Coverage

lib/File/UnixAuth/Result.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	35	37	94.5

package File::UnixAuth::Result;

use namespace::autoclean;

use File::DataClass::Constants qw( FALSE );
use File::DataClass::Functions qw( is_member );
use Moo;

extends q(File::DataClass::Result);

after 'update' => sub {
   my $self   = shift;
   my $source = $self->can( 'result_source' )
              ? $self->result_source : $self->_source;
   my $hook   = $source->schema->post_update_hook; $hook and $hook->( $self );

   return;
};

sub add_user_to_group {
   my ($self, $user) = @_; my $users = $self->members;

   is_member $user, $users and return FALSE;

   $self->members( [ @{ $users }, $user ] );

   return $self->update;
}

sub remove_user_from_group {
   my ($self, $user) = @_; my $users = $self->members;

   is_member $user, $users or return FALSE;

   $self->members( [ grep { $_ ne $user } @{ $users } ] );

   return $self->update;
}

1;

__END__