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__ |