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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
use strict;
use warnings;
use Test::Fatal;
use Test::More;
use Log::Dispatchouli::Global '$Logger' => { init => {
ident => 't/global.t',
log_pid => 0,
to_self => 1,
}};
{
package Alpha;
use Log::Dispatchouli::Global '$Logger';
sub call_bravo {
my ($self, $n) = @_;
local $Logger = $Logger->proxy({ proxy_prefix => "$n: " });
$Logger->log("inside call_bravo");
Bravo->endpoint;
}
}
{
package Bravo;
use Log::Dispatchouli::Global '$Logger' => { -as => 'L' };
sub endpoint {
my ($self, $n) = @_;
$L->log("inside Bravo::endpoint");
}
}
isa_ok($Logger, 'Log::Dispatchouli', 'imported $Logger');
$Logger->log("first");
Alpha->call_bravo(123);
$Logger->log("last");
my $events = $Logger->events;
is($events->[0]->{message}, 'first', '1st log');
is($events->[1]->{message}, '123: inside call_bravo', '2nd log');
is($events->[2]->{message}, '123: inside Bravo::endpoint', '3rd log');
is($events->[3]->{message}, 'last', '4th log');
done_testing;
|
