File Coverage

blib/lib/WWW/Connpass/Group.pm

Criterion	Covered	Total	%
statement	6	13	46.1
branch			n/a
condition			n/a
subroutine	2	8	25.0
pod	0	6	0.0
total	8	27	29.6

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

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

sub raw_data { shift->{group} }

# getter
sub id    { shift->{group}->{id}    }
sub title { shift->{group}->{title} }
sub url   { shift->{group}->{url}   }
sub name  { shift->{group}->{name}  }

1;
__END__