File Coverage

blib/lib/Mail/ListDetector/List.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	6	6	100.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	4	4	100.0
total	42	44	95.4

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__