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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
package MooseX::LogDispatch::Levels;
use Moose::Role;
use MooseX::LogDispatch::Interface;
# Ideally i would like to be able to do
#
with 'MooseX::LogDispatch';
#has '+logger' => ( handles => 'MooseX::LogDispatch::Interface' );
#
# but it doesn't work because roles don't handle +attr
# nor do they handle 'extends' which fucks up the OTHER approach
# the dirty trick of has _logger => (
# default => sub { shift->logger }
# handles => ....
# )
# also doesn't work because you can't massage the CallerDepth!
# We could probably do this in some really sick way using autobox
# and ->curry, but life's too short.
sub _handle_log {
my ($self, $level, @args) = @_;
local $Log::Dispatch::Config::CallerDepth = $Log::Dispatch::Config::CallerDepth + 2;
$self->logger->$level(@args);
}
sub log { shift->_handle_log('log',@_) }
sub debug { shift->_handle_log('debug', @_) }
sub info { shift->_handle_log('info',@_) }
sub notice { shift->_handle_log('notice',@_) }
sub warning { shift->_handle_log('warning',@_) }
sub error { shift->_handle_log('error',@_) }
sub critical { shift->_handle_log('critical',@_) }
sub alert { shift->_handle_log('alert',@_) }
sub emergency { shift->_handle_log('emergency',@_) }
no Moose::Role;
1; # need the magic smoke
__END__
=head1 NAME
MooseX::LogDispatch::Levels - like L<MooseX::LogDispatch> but with methods for log levels
=head1 SYNOPSIS
package MyLogger;
use Moose;
with 'MooseX::LogDispatch::Levels';
# Optional configuration attribute would go here.
# Elsewhere...
my $logger = MyLogger->new;
$logger->debug("Something to log");
$logger->logger->debug("This also works");
=head1 DESCRIPTION
Like L<MooseX::LogDispatch>, but with methods for the various log levels
added directly to your class.
Configuration is done in the exact same way as for MooseX::LogDispatch.
=head1 METHODS
=head2 log
=head2 debug
=head2 info
=head2 notice
=head2 warning
=head2 error
=head2 critical
=head2 alert
=head2 emergency
=head1 AUTHOR
Ash Berlin C<< <ash@cpan.org> >>.
=head1 LICENCE
This module is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlartistic>.
|
