1package Mail::ListDetector::List; 2 3use strict; 4use warnings; 5 6sub new { 7 my $proto = shift; 8 my $data = shift; 9 my $class = ref($proto) || $proto; 10 my $self = {}; 11 $self->{'data'} = $data; 12 13 bless ($self, $class); 14 return $self; 15} 16 17sub listname { 18 my $self = shift; 19 my $name = shift; 20 $self->{'data'}->{'listname'} = $name if defined $name; 21 return $self->{'data'}->{'listname'}; 22} 23 24sub posting_address { 25 my $self = shift; 26 my $posting_address = shift; 27 $self->{'data'}->{'posting_address'} = $posting_address if defined $posting_address; 28 return $self->{'data'}->{'posting_address'}; 29} 30 31sub listsoftware { 32 my $self = shift; 33 my $listsoftware = shift; 34 $self->{'data'}->{'listsoftware'} = $listsoftware if defined $listsoftware; 35 return $self->{'data'}->{'listsoftware'}; 36} 37 381; 39 40__END__ 41 42=pod 43 44=head1 NAME 45 46Mail::ListDetector::List - an object representing a mailing list 47 48=head1 SYNOPSIS 49 50 use Mail::ListDetector::List; 51 52=head1 DESCRIPTION 53 54This object provides a representation of the information extracted 55about a mailing list. It should not be instantiated directly by anything 56outside the Mail::ListDetector package. 57 58=head1 METHODS 59 60=head2 new 61 62Creates a new List object. 63 64=head2 listname 65 66This method gets or sets the name of the mailing list. The name to 67set is an optional argument. 68 69=head2 posting_address 70 71This method gets or sets the posting address of the mailing list. 72The posting address to set is an optional argument. 73 74=head2 listsoftware 75 76This method gets or sets the mailing list software name. The name 77to set is an optional argument. 78 79=head1 BUGS 80 81No known bugs. 82 83=head1 AUTHOR 84 85Michael Stevens - michael@etla.org. 86 87=cut 88 89