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

package WWW::Connpass::User;
use strict;
use warnings;

sub new {
    my ($class, %args) = @_;
    return bless {
        %args,
    } => $class;
}

sub raw_data { shift->{user} }

# getter
sub id             { shift->{user}->{id}             }
sub username       { shift->{user}->{username}       }
sub display_name   { shift->{user}->{display_name}   }
sub avatar         { shift->{user}->{avatar}         }
sub is_deactivated { shift->{user}->{is_deactivated} }
sub profile_url    { shift->{user}->{profile_url}    }

1;
__END__