Commit | Line | Data |
4355e4fb |
1 | package DBIx::Class::DeploymentHandler::Logger; |
2 | |
3 | use warnings; |
4 | use strict; |
5 | |
6 | use parent 'Log::Contextual::WarnLogger'; |
7 | |
8 | # trace works the way we want it already |
9 | |
10 | # sub is_trace { $_[0]->next::method } |
11 | sub is_debug { $_[0]->is_trace || $_[0]->next::method } |
12 | sub is_info { $_[0]->is_debug || $_[0]->next::method } |
13 | |
14 | sub is_warn { |
15 | my $orig = $_[0]->next::method; |
16 | return undef if defined $orig && !$orig; |
17 | return $_[0]->is_info || 1 |
18 | } |
19 | |
20 | sub is_error { |
21 | my $orig = $_[0]->next::method; |
22 | return undef if defined $orig && !$orig; |
23 | return $_[0]->is_warn || 1 |
24 | } |
25 | |
26 | sub is_fatal { |
27 | my $orig = $_[0]->next::method; |
28 | return undef if defined $orig && !$orig; |
29 | return $_[0]->is_error || 1 |
30 | } |
31 | |
f4075791 |
32 | sub _log { |
33 | my $self = shift; |
34 | my $level = shift; |
35 | my $message = join( "\n", @_ ); |
36 | $message .= "\n" unless $message =~ /\n$/; |
37 | warn "[DBICDH] [$level] $message"; |
38 | } |
39 | |
374a05c8 |
40 | sub new { |
41 | my ($self, $options, @rest) = @_; |
42 | |
43 | $options ||= {}; |
44 | $options->{env_prefix} ||= 'DBICDH'; |
45 | |
46 | $self->next::method($options, @rest) |
47 | } |
48 | |
4355e4fb |
49 | 1; |