File: 015-handler-filter-caller.t

package info (click to toggle)
liblog-handler-perl 0.45-1%2Blenny1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 392 kB
  • ctags: 145
  • sloc: perl: 2,017; makefile: 39
file content (48 lines) | stat: -rw-r--r-- 628 bytes parent folder | download
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
use strict;
use warnings;
use Test::More tests => 3;
use Log::Handler;

my $CHECK  = 0;
my $STRING = '';

ok(1, 'use');

my $log = Log::Handler->new();

ok(2, 'new');

$log->add(
    forward => {
        forward_to     => \&check,
        maxlevel       => 6,
        filter_caller  => 'Foo::Bar',
        message_layout => '%p',
    }
);

sub check {
    my $m = shift;
    if ($m->{message} eq 'Foo::Bar') {
        $CHECK++;
    }
}

Foo::Bar::baz();
Foo::Baz::baz();

ok($CHECK == 1, "checking filter_caller ($CHECK)");

package Foo::Bar;

sub baz {
    $log->info();
}

package Foo::Baz;

sub baz {
    $log->info();
}

1;