File Coverage

blib/lib/Dancer2/Plugin/Routing.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	15	16	93.7
condition	4	6	66.6
subroutine	12	12	100.0
pod			n/a
total	68	71	95.7

package Dancer2::Plugin::Routing;

use 5.10.0;
use strict;
use warnings;
use Dancer2::Plugin;
use Ref::Util qw/is_hashref/;
use base qw/Dancer2::Plugin::RootURIFor/;

=head1 NAME

Dancer2::Plugin::Routing - A dancer2 plugin for configurable routing.

=head1 VERSION

Version 0.01

=cut

our $VERSION = '0.01';

my ( $_settings, $_routings, $_packages ) = undef;

# -----------------------------------------------
# Preloaded methods go here.
# -----------------------------------------------
# Encapsulated class data.

{

    sub _load_settings {
        return $_settings if $_settings;
        $_settings = plugin_setting;
        return $_settings;
    }

    sub _routings {
        return $_routings if $_routings;
        my $stg = _load_settings->{routes};
        $_routings->{$_} = is_hashref $stg->{$_} && $stg->{$_}->{route} ? $stg->{$_}->{route} : $stg->{$_} foreach keys %$stg;
        return $_routings;
    }

    sub _packages {
        return $_packages if $_packages;
        my $stg = _load_settings->{routes};
        foreach ( keys %$stg ) {
            next if ( !is_hashref $stg->{$_} || !$stg->{$_}->{package} );
            $_packages->{$_} = $stg->{$_}->{package};
        }
        return $_packages;
    }

    sub _routing_for {
        return undef unless $_[1];
        return _routings->{ $_[1] };
    }

    sub _package_for {
        return undef unless $_[1];
        my $packages = _packages();
        return $packages->{ $_[1] } if $packages;
    }

    sub _redirect {
        my $dsl = shift;
        return $dsl->app->redirect( $dsl->SUPER::root_uri_for(@_) );
    }
}

=head1 SUBROUTINES/METHODS

=head2 routing_for

Get route from a given route key

=cut

register routing_for => \&_routing_for;

=head2 package_for

Get package name from a given route key

=cut

register package_for => \&_package_for;

=head2 routings

Returns a list of all configured routes to mount

=cut

register routings => \&_routings;

=head2 packages

Returns a list of all configured packages to mount

=cut

register packages => \&_packages;

=head2 root_redirect

overloaded sub to redirect to root uri from
C

=cut

register root_redirect => \&_redirect;

on_plugin_import {
    $_[0]->app->add_hook(
        Dancer2::Core::Hook->new(
            name => 'before_template',
            code => sub {
                my $key = _load_settings()->{template_key};
                $_[0]->{$key} = \%{ _routings() };
                $_ =~ s~^/$~~ig foreach ( values %{ $_[0]->{$key} } );
            }
        )
    );
};

register_plugin for_versions => [2];

1;

__END__