sub add_log {
    my ($self, $parser, $coderef) = @_;
	
    push @{$log_list{refaddr $self}}, [ $parser, $coderef ];

    return 1;
}