File Coverage

blib/lib/Toolforge/MixNMatch/Struct/User.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 20 22 90.9


line stmt bran cond sub pod time code
1             package Toolforge::MixNMatch::Struct::User;
2              
3 8     8   340502 use strict;
  8         51  
  8         234  
4 8     8   52 use warnings;
  8         13  
  8         205  
5              
6 8     8   2995 use Toolforge::MixNMatch::Object::User;
  8         99557  
  8         1195  
7              
8             our $VERSION = 0.02;
9              
10             sub obj2struct {
11 3     3 0 189 my $obj = shift;
12              
13 3         11 my $struct_hr = {
14             'cnt' => $obj->count,
15             'uid' => $obj->uid,
16             'username' => $obj->username,
17             };
18              
19 3         54 return $struct_hr;
20             }
21              
22             sub struct2obj {
23 3     3 0 88 my $struct_hr = shift;
24              
25             my $obj = Toolforge::MixNMatch::Object::User->new(
26             'count' => $struct_hr->{'cnt'},
27             'uid' => $struct_hr->{'uid'},
28 3         20 'username' => $struct_hr->{'username'},
29             );
30              
31 3         197 return $obj;
32             }
33              
34             1;
35              
36             __END__