File Coverage

blib/lib/Mail/Stats/Parser.pm

Criterion	Covered	Total	%
statement	9	22	40.9
branch	0	8	0.0
condition	0	9	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	12	44	27.2

package Mail::Stats::Parser;

use strict;
use Mail::Stats::Record;

use vars qw($Start_Header $Status_Header $Ignore_Header $End_Header);

$Start_Header = 'From \S+\s+\w\w\w \w\w\w\s+\d+ \d+:\d+:\d+ \d+';
$Status_Header = '(X-)?Status:';
$Ignore_Header = 'Subject: DON\'T DELETE THIS MESSAGE -- FOLDER INTERNAL DATA';
$End_Header = '\s*';

sub parse {
  my $fh = shift;

  my $mail = new Mail::Stats::Record();

  my $header = 0;

  while(<$fh>) {
    if(/^From \S+\s+\w+ \w+\s+\d+ \d+:\d+:\d+ \d+/) {
      $header = 1;
      $mail->{MESSAGES}++;
    } elsif ($header && /^$Status_Header/og) {
      while(/(\w)/g) {
	$mail->{STATUS}->{$1}++;
      }
    } elsif ($header && /^$Ignore_Header/o) {
      $mail->{MESSAGES}--;
      $header = 0;
    } elsif ($header && /^$End_Header$/o) {
      $header = 0;
    }
  }

  return $mail;
}

1;