File Coverage

blib/lib/Articulate/Authorisation/AlwaysAllow.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 17 17 100.0


line stmt bran cond sub pod time code
1             package Articulate::Authorisation::AlwaysAllow;
2 5     5   25967 use strict;
  5         9  
  5         166  
3 5     5   24 use warnings;
  5         9  
  5         115  
4              
5 5     5   782 use Moo;
  5         16906  
  5         25  
6              
7              
8             =head1 NAME
9              
10             Articulate::Authorisation::AlwaysAllow - don't use this in production
11              
12             =cut
13              
14             =head1 CONFIGURATION
15              
16             Put this in your C, NOT in your C or your C. You have been warned.
17              
18             plugins:
19             Articulate::Authorisation:
20             providers:
21             - Articulate::Authorisation::AlwaysAllow
22              
23             There's nothing else to configure, the answer is always yes.
24              
25             =head1 METHODS
26              
27             =head3 new
28              
29             Does what all good C methods do, nothing more.
30              
31             =head3 permitted
32              
33             Handles all the complex business logic required to ensure that the request is always authorised.
34              
35             So don't use this in production.
36              
37             =cut
38              
39             sub permitted {
40 5     5 1 17 my $self = shift;
41 5         10 my $permission = shift;
42 5         22 $permission->grant('Anything is possible!');
43             }
44              
45             =head1 BUGS
46              
47             Don't come crying to me if you use this in production.
48              
49             =cut
50              
51             1;