File Coverage

blib/lib/Mail/ListDetector/Detector/AutoShare.pm

Criterion	Covered	Total	%
statement	45	45	100.0
branch	6	10	60.0
condition	5	6	83.3
subroutine	11	11	100.0
pod	1	2	50.0
total	68	74	91.8

package Mail::ListDetector::Detector::AutoShare;

use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.01';

use base qw(Mail::ListDetector::Detector::Base);
use Mail::ListDetector::List;
use Mail::ListDetector::Detector::RFC2919;
use Mail::ListDetector::Detector::RFC2369;
use Carp;

sub DEBUG { 0 }

sub match {
	my $self = shift;
	my $message = shift;
	print "Got message $message\n" if DEBUG;
	carp ("Mail::ListDetector::Detector::AutoShare - no message supplied") unless defined($message);
	use Email::Abstract;

	my $list_software = Email::Abstract->get_header($message, 'List-Software');
	if (defined($list_software) && ($list_software =~ m/(AutoShare [\w\.]+)/)) {
		$list_software = $1;

		my $list_post = Email::Abstract->get_header($message, 'List-Post');
		return undef unless defined($list_post);
		$list_post =~ m/<(.+)>/ or return undef;
		my $posting_address = $1;

		my $rfc2919 = new Mail::ListDetector::Detector::RFC2919;
		my $rfc2369 = new Mail::ListDetector::Detector::RFC2369;
		my $list = ( $rfc2919->match($message) or $rfc2369->match($message) );

		$list->listsoftware($list_software);

		return $list;
	} else {
		return undef;
	}
}

1;

__END__