File Coverage

lib/WebService/Steam/Group.pm
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1             package WebService::Steam::Group;
2              
3 1     1   384 use Moose;
  0            
  0            
4              
5             use overload '""' => sub { $_[0]->name };
6              
7             has name => ( is => 'ro', isa => 'Str', init_arg => 'groupName' );
8             has summary => ( is => 'ro', isa => 'Str' );
9              
10             sub path { "http://steamcommunity.com/@{[ $_[1] =~ /^\d+$/ ? 'gid' : 'groups' ]}/$_[1]/memberslistxml" }
11              
12             __PACKAGE__->meta->make_immutable;
13              
14             1;
15            
16             =head1 NAME
17              
18             WebService::Steam::User
19              
20             =head1 ATTRIBUTES
21              
22             =head2 name
23              
24             A string of the name of the group.
25              
26             =head2 summary
27              
28             A string of the summary of the group.