File Coverage

blib/lib/PlugAuth/Role/Refresh.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package PlugAuth::Role::Refresh;
2              
3 41     41   23657 use strict;
  41         133  
  41         1450  
4 41     41   292 use warnings;
  41         152  
  41         1333  
5 41     41   283 use Role::Tiny;
  41         221  
  41         332  
6              
7             # ABSTRACT: Role for PlugAuth reload plugins
8             our $VERSION = '0.38'; # VERSION
9              
10              
11             requires qw( refresh );
12              
13             1;
14              
15             __END__
16              
17             =pod
18              
19             =encoding UTF-8
20              
21             =head1 NAME
22              
23             PlugAuth::Role::Refresh - Role for PlugAuth reload plugins
24              
25             =head1 VERSION
26              
27             version 0.38
28              
29             =head1 SYNOPSIS
30              
31             package PlugAuth::Plugin::MyRefresh;
32            
33             use Role::Tiny::With;
34            
35             with 'PlugAuth::Role::Plugin';
36             with 'PlugAuth::Role::Refresh';
37            
38             sub refresh {
39             my ($self) = @_;
40             # called on every request
41             }
42            
43             1;
44              
45             =head1 DESCRIPTION
46              
47             Use this role for PlugAuth plugins which need to be refreshed
48             on every call. You will likely want to mix this role in with either
49             or both L<PlugAuth::Role::Auth> and L<PlugAuth::Role::Authz>.
50              
51             =head1 REQUIRED ABSTRACT METHODS
52              
53             =head2 $plugin-E<gt>refresh
54              
55             Called on every request.
56              
57             =head1 SEE ALSO
58              
59             L<PlugAuth>,
60             L<PlugAuth::Guide::Plugin>,
61             L<Test::PlugAuth::Plugin::Refresh>
62              
63             =cut
64              
65             =head1 AUTHOR
66              
67             Graham Ollis <gollis@sesda3.com>
68              
69             =head1 COPYRIGHT AND LICENSE
70              
71             This software is copyright (c) 2012 by NASA GSFC.
72              
73             This is free software; you can redistribute it and/or modify it under
74             the same terms as the Perl 5 programming language system itself.
75              
76             =cut