Help for this page
use IO::All; ... my ($file, $level, $message) = @_; $file->print($message) if $level < $DEBUG_LEVEL; }
package Thingy; ... # in here we completely ignore $self and do # lots of manipulation of $parent }