File Coverage

blib/lib/Articulate/Authorisation/OwnerOverride.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	2	2	100.0
condition	1	2	50.0
subroutine	4	4	100.0
pod	1	1	100.0
total	21	22	95.4

package Articulate::Authorisation::OwnerOverride;
use strict;
use warnings;

use Moo;

=head1 NAME

Articulate::Authorisation::OwnerOverride - always say yes to the owner

=cut

=head1 CONFIGURATION

Put this in your config:

  components:
    authorisation:
      Articulate::Authorisation:
       rules:
          - Articulate::Authorisation::OwnerOverride

Or, if you want the owner   components:     authorisation:
Articulate::Authorisation:         rules:           - class:
Articulate::Authorisation::OwnerOverride             args:
 owner: administrator

=head1 ATTRIBUTES

=head3 owner

The username of the owner. Defaults to C.

=cut

has owner => (
  is      => 'rw',
  default => sub { 'owner' }
);

=head1 METHODS

=head3 new

Yep, C works just as you'd expect.

=head3 permitted

Grants any request if the user asking is the owner. By default this is
the user called C, but it could be someone else, if the C
attribute is set.

=cut

sub permitted {
  my $self       = shift;
  my $permission = shift;
  $permission->grant('Site owner can do anything')
    if ( ( $permission->user_id // '' ) eq $self->owner );
  return $permission;
}

1;