-# $Id: Pod.pm,v 1.18 2006-07-25 16:51:22 mike Exp $
+# $Id: Pod.pm,v 1.20 2006-09-27 12:40:44 mike Exp $
package ZOOM::Pod;
use ZOOM;
BEGIN {
- # Just register the name
+ # Just register the names: this doesn't turn the levels on
ZOOM::Log::mask_str("pod");
ZOOM::Log::mask_str("pod_unhandled");
}
my($event, $sub) = @_;
my $old = $this->{callback}->{$event};
- $this->{callback}->{$event} = $sub
- if defined $sub;
+ $this->{callback}->{$event} = $sub;
return $old;
}