#!/usr/bin/perl
use strict;
use warnings;

use Log::Dispatcher;
use Log::Dispatch::Screen;

our $d = Log::Dispatcher->new;
$d->configure_dispatcher("example/a.conf");
$d->add(
    Log::Dispatch::Screen->new(
            name      => 'screen',
            min_level => 'emergency',
    )
);

$d->debug("First");

run_func();
My::A::a();

sub run_func {
    $d->debug("run_func");
}


package My::A;
sub a {
    $main::d->debug("My::A::a\n");
}