10 my( $class, $msg ) = @_;
11 push @trace, [ time, "[$$][". time2str('%r', time). "] $msg" ];
15 $trace[-1]->[0] - $trace[0]->[0];
27 join("\n", map $_->[1], @trace). "\n";
31 my( $class, $filename, $header ) = @_;
32 write_file( $filename, "$header\n". $class->dump );