File Coverage

blib/lib/Siesta/Member.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             # $Id: Member.pm 1357 2003-08-14 15:41:05Z richardc $
2             package Siesta::Member;
3 18     18   17025 use strict;
  18         118  
  18         729  
4 18     18   105 use Siesta::DBI;
  18         34  
  18         134  
5 18     18   489 use base 'Siesta::DBI';
  18         32  
  18         2574  
6             __PACKAGE__->set_up_table( 'member' );
7             __PACKAGE__->load_alias('email');
8             __PACKAGE__->has_many( lists => [ 'Siesta::Subscription' => 'list' ] );
9             __PACKAGE__->has_many( prefs => 'Siesta::Pref' );
10             __PACKAGE__->has_many( deferred => 'Siesta::Deferred', 'who' );
11              
12              
13             # fuck the users, fuck them up their stupid asses
14              
15             =head1 NAME
16              
17             Siesta::Member - manipulate a member.
18              
19             =head1 METHODS
20              
21             =head2 ->id
22              
23             get and set their id.
24              
25             =head2 ->email
26              
27             get and set their email address.
28              
29             =head2 ->config
30              
31             get and set config values for this Member.
32              
33             =head2 ->lists
34              
35             all the lists this member is subbed to.
36              
37             =cut
38              
39             1;