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
|
package Dancer2::ConfigUtils;
# ABSTRACT: Config utility helpers
$Dancer2::ConfigUtils::VERSION = '2.0.1';
use strict;
use warnings;
use Carp;
use Module::Runtime qw{ require_module };
use Exporter 'import';
our @EXPORT_OK = qw(
normalize_config_entry
);
my $NORMALIZERS = {
charset => sub {
my ($charset) = @_;
return $charset if !length( $charset || '' );
require_module('Encode');
my $encoding = Encode::find_encoding($charset);
croak
"Charset defined in configuration is wrong : couldn't identify '$charset'"
unless defined $encoding;
my $name = $encoding->name;
# Perl makes a distinction between the usual perl utf8, and the strict
# utf8 charset. But we don't want to make this distinction
$name = 'utf-8' if $name eq 'utf-8-strict';
return $name;
},
};
sub normalize_config_entry {
my ( $name, $value ) = @_;
$value = $NORMALIZERS->{$name}->($value)
if exists $NORMALIZERS->{$name};
return $value;
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Dancer2::ConfigUtils - Config utility helpers
=head1 VERSION
version 2.0.1
=head1 AUTHOR
Dancer Core Developers
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2025 by Alexis Sukrieh.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|
