File Coverage

blib/lib/WWW/Connpass/User.pm
Criterion Covered Total %
statement 6 15 40.0
branch n/a
condition n/a
subroutine 2 10 20.0
pod 0 8 0.0
total 8 33 24.2


line stmt bran cond sub pod time code
1             package WWW::Connpass::User;
2 1     1   3 use strict;
  1         1  
  1         22  
3 1     1   3 use warnings;
  1         1  
  1         133  
4              
5             sub new {
6 0     0 0   my ($class, %args) = @_;
7 0           return bless {
8             %args,
9             } => $class;
10             }
11              
12 0     0 0   sub raw_data { shift->{user} }
13              
14             # getter
15 0     0 0   sub id { shift->{user}->{id} }
16 0     0 0   sub username { shift->{user}->{username} }
17 0     0 0   sub display_name { shift->{user}->{display_name} }
18 0     0 0   sub avatar { shift->{user}->{avatar} }
19 0     0 0   sub is_deactivated { shift->{user}->{is_deactivated} }
20 0     0 0   sub profile_url { shift->{user}->{profile_url} }
21              
22             1;
23             __END__