File Coverage

blib/lib/Toolforge/MixNMatch/Object/User.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 22 23 95.6


line stmt bran cond sub pod time code
1             package Toolforge::MixNMatch::Object::User;
2              
3 3     3   217499 use strict;
  3         31  
  3         80  
4 3     3   13 use warnings;
  3         9  
  3         73  
5              
6 3     3   1254 use Mo qw(build is);
  3         1335  
  3         14  
7 3     3   5220 use Mo::utils qw(check_required);
  3         25731  
  3         53  
8              
9             our $VERSION = 0.02;
10              
11             has count => (
12             is => 'ro',
13             required => 1,
14             );
15              
16             has uid => (
17             is => 'ro',
18             required => 1,
19             );
20              
21             has username => (
22             is => 'ro',
23             required => 1,
24             );
25              
26             sub BUILD {
27 4     4 0 17090 my $self = shift;
28              
29 4         17 check_required($self, 'count');
30 3         24 check_required($self, 'uid');
31 2         11 check_required($self, 'username');
32              
33 1         5 return;
34             }
35              
36             1;
37              
38             __END__