File Coverage

blib/lib/Dancer2/Plugin/RootURIFor.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	31	33	93.9

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

use URI::Escape;
use Dancer2 0.15;
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__