File Coverage

blib/lib/WWW/Slides/BasicLogger.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	4	4	100.0
condition			n/a
subroutine	13	13	100.0
pod	1	5	20.0
total	54	58	93.1

package WWW::Slides::BasicLogger;
{
   use version; our $VERSION = qv('0.0.5');

   use warnings;
   use strict;
   use Carp;
   use IO::Handle;

   use Object::InsideOut;

   # Other recommended modules (uncomment to use):
   #  use IO::Prompt;
   #  use Perl6::Export;
   #  use Perl6::Slurp;
   #  use Perl6::Say;
   #  use Regexp::Autoflags;
   #  use Readonly;

   # Module implementation here
   my @channel : Field    # Where the logging will be sent
     : Std(Name => 'channel', Private => 1) : Get(Name => 'channel')
     : Arg(Name => 'channel', Default => \*STDERR);

   my %init_args : InitArgs = ('fake' => '',);

   sub _init : Init {
      my $self = shift;
      my ($args) = @_;
      $self->set_channel(undef) if $args->{fake};
   }
   sub print : Private {
      my $self = shift;
      if (my $channel = $self->channel()) {
         $channel->print(@_, "\n");
      }
      return;
   }
   sub debug { shift->print(@_); }
   sub info  { shift->print(@_); }
   sub warn  { shift->print(@_); }
   sub error { shift->print(@_); }
   sub fatal { shift->print(@_); }
}

1;    # Magic true value required at end of module
__END__