sub find_message { my ($self, $argref) = @_; # Parse the arguments, and get all the message info. my $msg_info = $self->_parse_args($argref, 1); # The '1' means throw an error if we don't have any info. # Find the message in the first log. if ($log_list{refaddr $self}->[0][0]->find_message_info($msg_info)) { # Do something. return 1; } else { return 0; } }