package Mail::Audit::Summarize;

use strict;
use warnings;
use Mail::Audit;

our @ISA = qw(Mail::Audit);

1;

sub accept {
    # I put this in to see if my accept() is even being
    # called. It appears not (since this die() call is
    # apparently not running).
    die "MY ACCEPT IS RUNNING.\n";

    my $self = shift;

    # nothing here yet.

    $self->SUPER::accept(@_);
}

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use lib '/home/diablo/modules';
use Mail::Audit::Summarize;

my $item = Mail::Audit::Summarize->new();
$item->accept();