#!/usr/bin/perl
#
# $Id: localverbosity.pl,v 1.2 2005/09/20 06:59:41 erwan Exp $
#
# an example of how to alter verbosity from within
# the code, in a local way.
#
# erwan lemonnier - 200509
#

use strict;
use warnings;
use lib "../lib/";
# 'log => 1' required since we want to log but neither rules file nor global vebrosity exists
use Log::Localized log => 1;

# by default $Log::Localized::VERBOSITY = 0

{
    # override global verbosity, locally
    local $Log::Localized::VERBOSITY = 2;
    llog(2,"this will be logged");
}

llog(2,"but this won't");