File Coverage

blib/lib/Mail/Stats/Record.pm

Criterion	Covered	Total	%
statement	6	17	35.2
branch			n/a
condition			n/a
subroutine	2	7	28.5
pod	0	5	0.0
total	8	29	27.5

package Mail::Stats::Record;

use strict;

use vars qw($VERSION);

$VERSION = '0.1';

sub new {
  my $class = shift;
  my $this = {
	      MESSAGES => 0, # Number of messages
	      STATUS => {
			 R => 0,
			},  # Hash of statuses
	      PARSED => 0,   # Has this been parsed yet?
	     };

  return bless $this, $class;
}

sub num_read {
  my $this = shift;

  return $this->{STATUS}->{R};
}

sub num_unread {
  my $this = shift;

  return $this->{MESSAGES} - $this->{STATUS}->{R};
}

sub num_status {
  my ($this, $status) = @_;

  return $this->{STATUS}->{$status};
}

sub num_not_status {
  my ($this, $status) = @_;

  return $this->{MESSAGES} - $this->{STATUS}->{$status};
}

1;

__END__