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(@_); }