Mail::ListDetector::List - an object representing a mailing list

Mail-ListDetector documentation Contained in the Mail-ListDetector distribution.

Index

Code Index:

NAME

Top

Mail::ListDetector::List - an object representing a mailing list

SYNOPSIS

Top

  use Mail::ListDetector::List;

DESCRIPTION

Top

This object provides a representation of the information extracted about a mailing list. It should not be instantiated directly by anything outside the Mail::ListDetector package.

METHODS

Top

new

Creates a new List object.

listname

This method gets or sets the name of the mailing list. The name to set is an optional argument.

posting_address

This method gets or sets the posting address of the mailing list. The posting address to set is an optional argument.

listsoftware

This method gets or sets the mailing list software name. The name to set is an optional argument.

BUGS

Top

No known bugs.

AUTHOR

Top

Michael Stevens - michael@etla.org.

Mail-ListDetector documentation Contained in the Mail-ListDetector distribution. 
package Mail::ListDetector::List;

use strict;
use warnings;

sub new {
  my $proto = shift;
  my $data = shift;
  my $class = ref($proto) || $proto;
  my $self = {};
  $self->{'data'} = $data;

  bless ($self, $class);
  return $self;
}

sub listname {
  my $self = shift;
  my $name = shift;
  $self->{'data'}->{'listname'} = $name if defined $name;
  return $self->{'data'}->{'listname'};
}

sub posting_address {
  my $self = shift;
  my $posting_address = shift;
  $self->{'data'}->{'posting_address'} = $posting_address if defined $posting_address;
  return $self->{'data'}->{'posting_address'};
}

sub listsoftware {
  my $self = shift;
  my $listsoftware = shift;
  $self->{'data'}->{'listsoftware'} = $listsoftware if defined $listsoftware;
  return $self->{'data'}->{'listsoftware'};
}

1;

__END__