File Coverage

blib/lib/WWW/BigDoor/Leaderboard.pm
Criterion Covered Total %
statement 17 17 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 24 25 96.0


line stmt bran cond sub pod time code
1             package WWW::BigDoor::Leaderboard;
2              
3 2     2   31381 use strict;
  2         5  
  2         79  
4 2     2   11 use warnings;
  2         4  
  2         56  
5              
6 2     2   12 use Carp;
  2         3  
  2         208  
7             #use Smart::Comments -ENV;
8              
9 2     2   12 use base qw(WWW::BigDoor::Resource Class::Accessor);
  2         5  
  2         464  
10              
11             __PACKAGE__->follow_best_practice;
12             __PACKAGE__->mk_accessors( qw(id results max_rank) );
13              
14             sub execute {
15 1     1 1 396 my ( $self, $params, $client ) = @_;
16              
17 1         10 my $ep = $self->_end_point;
18              
19 1 50       5 croak "need WWW::BigDoor::client object" unless defined $client;
20              
21 1         8 my $result = $client->GET( sprintf( '%s/execute', $ep ), $params );
22 1         4 return $result;
23             }
24              
25             1;
26             __END__