30 |
$c->log->fail("didn't find databases in config"); |
$c->log->fail("didn't find databases in config"); |
31 |
$self->{log} = $c->log; |
$self->{log} = $c->log; |
32 |
|
|
33 |
$c->log->debug("using config encoding ", $self->config->{config_encoding}); |
$self->{config_encoding} = $c->config->{config_encoding} and |
34 |
|
$c->log->debug("using config encoding ", $self->{config_encoding}); |
35 |
|
|
36 |
return $self; |
return $self; |
37 |
} |
} |
47 |
sub convert { |
sub convert { |
48 |
my $self = shift; |
my $self = shift; |
49 |
my $val = shift || return; |
my $val = shift || return; |
50 |
my $encoding = $self->config->{config_encoding} || return $val; |
my $encoding = $self->{config_encoding} || return $val; |
51 |
return decode($encoding, $val); |
return decode($encoding, $val); |
52 |
} |
} |
53 |
|
|