1 2 3 4 5 6 7 8 9 10 11
package class_discard; # $Id$ use log; sub new { bless {}, "class_discard" } sub AUTOLOAD { log::l("class_discard: $AUTOLOAD called at ", caller); } 1;