diff --git a/lib/Simba/DA.pm b/lib/Simba/DA.pm index 396e20b..6893883 100644 --- a/lib/Simba/DA.pm +++ b/lib/Simba/DA.pm @@ -270,6 +270,13 @@ sub log { } } + +sub log_level { + my ($self, $log_level) = @_; + $self->{log_level} = $log_level if defined($log_level); + return $self->{log_level}; +} + 1; # vim: sw=4 expandtab tw=0 diff --git a/t/00_da.t b/t/00_da.t index f2dc581..98a0a0e 100644 --- a/t/00_da.t +++ b/t/00_da.t @@ -8,6 +8,7 @@ BEGIN { use_ok( 'Simba::DA' ); } my $da = Simba::DA->new(); ok($da, 'new DA'); +$da->log_level(0); # no log output during tests my $list; open(my $fh, '>', \$list); $da->fh_out($fh);