File Coverage

blib/lib/WWW/PGXN/User.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	25	25	100.0

package WWW::PGXN::User;

use 5.8.1;
use strict;

our $VERSION = v0.13.0;

BEGIN {
    for my $attr (qw(
        nickname
        name
        email
        uri
        twitter
    )) {
        no strict 'refs';
        *{$attr} = sub { shift->{$attr} };
    }
}

sub new {
    my ($class, $data) = @_;
    bless $data, $class;
}

sub releases {
    +{ %{ shift->{releases} } }
}

__END__