sub new {
my $class = shift;
- my $self = {'_DEBUG' => 0, '_OUT' => sub {}};
+ my $self = {'_DEBUG' => 0, '_OUT' => sub {print shift}};
bless($self, $class);
$t = sprintf(shift(@_), @_);
$t =~ s/%/%%/g;
- $self->{'_OUT'}->($t);
+ $self->{'_OUT'}($t);
}
sub debug {