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