The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Locale::TextDomain::OO::Role::Logger - Provides a logger method

$Id: Logger.pm 651 2017-05-31 18:10:43Z steffenw $

$HeadURL: svn+ssh://steffenw@svn.code.sf.net/p/perl-gettext-oo/code/module/trunk/lib/Locale/TextDomain/OO/Role/Logger.pm $

VERSION

1.027

DESCRIPTION

This module provides a logger method for for Locale::TextDomain:OO.

SYNOPSIS

    use Log::Any qw($log);
    
    with qw(
        Locale::TextDomain::OO::Role::Logger
    );

SUBROUTINES/METHODS

method logger

Store logger code to get some information what lexicon is used or why the translation process is using a fallback.

    $lexicon_hash->logger(
        sub {
            my ($message, $arg_ref) = @_;
            my $type = $arg_ref->{type};
            $log->$type($message);
            return;
        },
    );

$arg_ref contains

    object => $self, # the object itself
    type   => 'debug', # the log category
    event  => 'lexicon,load', # event category

Get back

    $code_ref_or_undef = $self->logger;

EXAMPLE

Inside of this distribution is a directory named example. Run this *.pl files.

DIAGNOSTICS

nothing

CONFIGURATION AND ENVIRONMENT

none

DEPENDENCIES

Moo::Role

MooX::Types::MooseLike::Base

INCOMPATIBILITIES

not known

BUGS AND LIMITATIONS

none

SEE ALSO

Locale::TextDoamin::OO

AUTHOR

Steffen Winkler

LICENSE AND COPYRIGHT

Copyright (c) 2013 - 2017, Steffen Winkler <steffenw at cpan.org>. All rights reserved.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.