File Coverage

blib/lib/Dancer2/Plugin/RootURIFor.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch	3	4	75.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	27	29	93.1

use strict;
use warnings;
package Dancer2::Plugin::RootURIFor;
{
    $Dancer2::Plugin::RootURIFor::VERSION = '0.01';
}
# ABSTRACT: Mountpoint-agnostic uri builder for Dancer2

use URI::Escape;
use Dancer2::Plugin;

register root_uri_for => sub {
    my ( $dsl, $part, $params, $dont_escape ) = @_;
    my $uri = $dsl->request->base;

    $part =~ s{^/*}{/};
    $uri->path("$part");

    $uri->query_form($params) if $params;

    return $dont_escape
      ? uri_unescape( ${ $uri->canonical } )
      : ${ $uri->canonical };
};

register_plugin;

1;

__END__