aboutsummaryrefslogtreecommitdiffstats
path: root/lib/ManaTools/LoggingRole.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/ManaTools/LoggingRole.pm')
-rw-r--r--lib/ManaTools/LoggingRole.pm98
1 files changed, 0 insertions, 98 deletions
diff --git a/lib/ManaTools/LoggingRole.pm b/lib/ManaTools/LoggingRole.pm
deleted file mode 100644
index 273a5d65..00000000
--- a/lib/ManaTools/LoggingRole.pm
+++ /dev/null
@@ -1,98 +0,0 @@
-# vim: set et ts=4 sw=4:
-package ManaTools::LoggingRole;
-#============================================================= -*-perl-*-
-
-=head1 NAME
-
- Manatools::LoggingRole - Role to manage configuration directory
-
-=head1 SYNOPSIS
-
- package Foo;
-
- use Moose;
- with 'Manatools::LoggingRole';
-
- sub identifier {
- return "logger_identifier";
- }
-
- ...
- $self->logger->I("info message");
- ...
-
- 1;
-
-=head1 DESCRIPTION
-
- LoggingRole just define a role in which a ManaTools::Shared::Logging object can be used to log.
-
-=head1 SUPPORT
-
- You can find documentation for this module with the perldoc command:
-
- perldoc Manatools::LoggingRole
-
-=head1 SEE ALSO
-
- ManaTools::Shared::Logging
-
-=head1 AUTHOR
-
-Angelo Naselli <anaselli@linux.it>
-
-=head1 COPYRIGHT and LICENSE
-
-Copyright (C) 2015-2016, Angelo Naselli.
-
-This module is free software. You can redistribute it and/or
-modify it under the terms of the Artistic License 2.0.
-
-This program is distributed in the hope that it will be
-useful, but without any warranty; without even the implied
-warranty of merchantability or fitness for a particular purpose
-
-=cut
-
-use Moose::Role;
-use ManaTools::Shared::Logging;
-
-=head2 requires
-
-=head3 definitions
-
- identifier: a string that is used as logging identifier
-
-=cut
-#=============================================================
-
-requires 'identifier';
-
-#=============================================================
-
-=head2 logger
-
- logger attribute defines the Logging object
- see ManaTools::Shared::Logging for details and usage.
-
-=cut
-
-#=============================================================
-has 'logger' => (
- is => 'ro',
- isa => 'ManaTools::Shared::Logging',
- init_arg => undef,
- lazy => 1,
- builder => '_loggerInitialize',
-);
-
-sub _loggerInitialize{
- my $self = shift;
-
- return ManaTools::Shared::Logging->new(ident => $self->identifier());
-}
-
-
-no Moose::Role;
-
-1;