dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Warn if a route is redefined (#595)

Browse Source
This commit is contained in:
Xavier Guimard 2017-09-05 18:34:46 +00:00
parent b16a2becf9
commit d788674e22
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI/Router.pm
View File

@ -59,21 +59,28 @@ sub genRoute {
$dest = $transform->($dest);
}
if ( my $t = ref $dest ) {
if ( $t eq 'CODE' ) {
$routes->{$word} = $dest;
}
elsif ( $t eq 'HASH' ) {
if ( $t eq 'HASH' ) {
$routes->{$word} ||= {};
foreach my $w ( keys %$dest ) {
$self->genRoute( $routes->{$word}, $w, $dest->{$w},
$transform );
}
return;
}
elsif ( $t eq 'ARRAY' ) {
$routes->{$word} ||= {};
foreach my $w ( @{$dest} ) {
$self->genRoute( $routes->{$word}, $w, $transform );
}
return;
}
}
if ( $routes->{$word} ) {
eval { $self->logger->warn(qq'Route "$word" redefined'); };
}
if ( my $t = ref $dest ) {
if ( $t eq 'CODE' ) {
$routes->{$word} = $dest;
}
else {
die "Type $t unauthorizated in routes";