File Coverage

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

Criterion	Covered	Total	%
statement	40	41	97.5
branch	5	8	62.5
condition			n/a
subroutine	10	10	100.0
pod	1	2	50.0
total	56	61	91.8

package Mail::ListDetector::Detector::GoogleGroups;

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 Carp;

sub DEBUG { 0 }

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

	my $x_google_loop = Email::Abstract->get_header($message, 'X-Google-Loop');
	if (defined($x_google_loop)) {
		my $rfc2919 = new Mail::ListDetector::Detector::RFC2919;
		my $list = $rfc2919->match($message);
		unless (defined ($list)) {
			return undef;
		}

		$list->listsoftware ('Google Groups');
		my $listname = $list->listname;
		$listname =~ s/\.googlegroups\.com$//;
		$list->listname ($listname);

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

1;

__END__