File Coverage

lib/Log/Dump/Class.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	2	4	50.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	36	38	94.7

package Log::Dump::Class;

use strict;
use warnings;
use Log::Dump;
use Sub::Install 'install_sub';

our @CARP_NOT;

sub import {
  my $class = shift;
  my $caller = caller;

  return if $caller eq 'main';

  my @methods = qw( logger log logfile logfilter logcolor logtime );
  foreach my $method (@methods) {
    install_sub({
      as   => $method,
      into => $caller,
      code => \&{$method},
    });
  }

  install_sub({
    as   => 'import',
    into => $caller,
    code => sub {
      my $user_class  = shift;
      my $user_caller = caller;

      return if $user_caller eq 'main';

      foreach my $method (@methods) {
        install_sub({
          as   => $method,
          into => $user_caller,
          code => sub { shift; $user_class->$method(@_) },
        });
      }
    },
  });
}

1;

__END__