File Coverage

blib/lib/Mail/Stats.pm

Criterion	Covered	Total	%
statement	18	41	43.9
branch	0	6	0.0
condition	0	6	0.0
subroutine	6	7	85.7
pod	0	1	0.0
total	24	61	39.3

package Mail::Stats;

use strict;
use vars qw($VERSION);

use Carp;
use Mail::Stats::Record;
use Mail::Stats::Parser;
use Mail::Stats::Config;

$VERSION = '0.02';

sub newmail {
  my $cfg = shift;
  my $c = new Mail::Stats::Config($cfg);

  if(!defined($c->{sort}) or scalar(@{$c->{mboxen}}) < 1) {
    return undef;
  }

  my $hash;

  for my $mbox (@{$c->{mboxen}}) {
    open(IN,$mbox) or croak("$0: could not open file $mbox - $!\n");
    $hash->{$mbox} = Mail::Stats::Parser::parse(\*IN);
    close(IN);
  }

  for my $mbox (sort {&{$c->{sort}}($hash)} keys %$hash) {
    my $short = $mbox;
    my $count = $hash->{$mbox}->num_unread();
    if($c->{showall} or $count) {
      $short =~ s/.*\///;
      my $message = $c->{message};
      $message =~ s/%% mbox %%/$short/;
      $message =~ s/%% count %%/$count/;
      print $message;
    }
  }

  return 1;
  # print STDERR Dumper($hash);
}

1;
__END__