1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
use strict;
use warnings;
use Test::More tests => 3;
my $log;
{ package Logger;
use base 'Log::Dispatch::Null';
sub log_message {
my $self = shift;
my %args = @_;
$log = $args{message};
};
}
{ package Class;
use Moose;
with 'MooseX::LogDispatch::Levels';
sub msg { $_[0]->debug('hello') }
}
my $logger = Log::Dispatch->new;
isa_ok $logger, 'Log::Dispatch';
$logger->add(Logger->new( min_level => 'debug', name => 'foo' ));
my $class = Class->new( logger => $logger );
isa_ok $class, 'Class';
$class->msg;
is $log, 'hello', 'logging worked';
|
