File Coverage

lib/Web/Authenticate/User.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1 1     1   4 use strict;
  1         1  
  1         39  
2             package Web::Authenticate::User;
3             $Web::Authenticate::User::VERSION = '0.003';
4 1     1   3 use Mouse;
  1         1  
  1         7  
5             #ABSTRACT: The default implementation of Web::Authentication::User::Role.
6              
7              
8             has id => (
9             isa => 'Int',
10             is => 'ro',
11             required => 1,
12             );
13              
14             # here so that 'id' sub exists
15             with 'Web::Authenticate::User::Role';
16              
17              
18             has row => (
19             isa => 'HashRef',
20             is => 'ro',
21             required => 1,
22             );
23              
24             1;
25              
26             __END__
27              
28             =pod
29              
30             =encoding UTF-8
31              
32             =head1 NAME
33              
34             Web::Authenticate::User - The default implementation of Web::Authentication::User::Role.
35              
36             =head1 VERSION
37              
38             version 0.003
39              
40             =head1 METHODS
41              
42             =head2 id
43              
44             Returns the user's id. Read only.
45              
46             =head2 row
47              
48             Has the user row as a hashref with columns as keys.
49              
50             =head1 AUTHOR
51              
52             Adam Hopkins <srchulo@cpan.org>
53              
54             =head1 COPYRIGHT AND LICENSE
55              
56             This software is copyright (c) 2017 by Adam Hopkins.
57              
58             This is free software; you can redistribute it and/or modify it under
59             the same terms as the Perl 5 programming language system itself.
60              
61             =cut