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:

  plugins:
    Articulate::Authorisation:
      providers:
        - Articulate::Authorisation::OwnerOverride

Or, if you want the owner

  plugins:
    Articulate::Authorisation:
      providers:
        - 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;