File Coverage

blib/lib/WWW/BigDoor/EndUser.pm
Criterion Covered Total %
statement 11 13 84.6
branch n/a
condition n/a
subroutine 4 5 80.0
pod 2 2 100.0
total 17 20 85.0


line stmt bran cond sub pod time code
1             package WWW::BigDoor::EndUser;
2              
3 7     7   40612 use strict;
  7         17  
  7         581  
4 7     7   42 use warnings;
  7         14  
  7         316  
5              
6             #use Smart::Comments -ENV;
7              
8 7     7   41 use base qw(WWW::BigDoor::Resource Class::Accessor);
  7         14  
  7         2455  
9              
10             __PACKAGE__->follow_best_practice;
11             __PACKAGE__->mk_accessors(
12             qw(end_user_login guid best_guess_name best_guess_profile_img award_summaries level_summaries sent_good_summaries currency_balances received_good_summaries read_only)
13             );
14              
15             sub get_id {
16 18     18 1 41 my ( $self, @args ) = @_;
17 18         73 return $self->get_end_user_login( @args );
18             }
19              
20             sub set_id {
21 0     0 1   my ( $self, @args ) = @_;
22 0           return $self->set_end_user_login( @args );
23             }
24              
25             1;
26             __END__