File Coverage

blib/lib/Mojolicious/Plugin/Alias.pm

Criterion	Covered	Total	%
statement	46	47	97.8
branch	13	16	81.2
condition	4	9	44.4
subroutine	9	9	100.0
pod	1	4	25.0
total	73	85	85.8

package Mojolicious::Plugin::Alias;

use strict;
use warnings;

use Mojo::Base 'Mojolicious::Plugin';


our $VERSION = '0.0.4';

our $aliases = {};
our $saved_static_dispatcher;

sub aliases {
    my ($self) = @_;
    my %by_lengths = map { $_ => length $_ } keys %$aliases;
    my @aliases = sort { $by_lengths{$b} <=> $by_lengths{$a} } keys %$aliases;
    return @aliases;
}

sub alias {
    my $self  = shift;
    my $alias = shift;
    return unless ( $alias && $alias =~ m{^/.*} );
    if (@_ > 0) {
      my @args = (@_ == 1 && ! ref $_[0])
               ? (paths => [ @_ ])
               : @_ ;
      $aliases->{$alias} = Mojolicious::Static->new(@args);
    }
    if ($alias && exists $aliases->{$alias}) {
        return $aliases->{$alias};
    }
    return;
}

sub match {
    my ($self, $req_path) = @_;
    foreach my $alias ($self->aliases) {
        if ($req_path =~ /^$alias.*/) {
            # print STDERR "$req_path matches $alias";
            return $alias;
        }
    }
    return;
}


sub register {
    my ($self, $app, $conf) = @_;

    if ($conf) {
        while(my ($alias, $def) = each %$conf) {
           $self->alias($alias, $def);
        }
    };

    $app->hook(
        before_dispatch => sub {
            my ($c) = @_;
            my $req_path = $c->req->url->path;
            return unless (my $alias = $self->match($req_path));
            # rewrite req_path
            $req_path =~ s/^$alias//;
            $c->req->url->path($req_path);
            # change static
            my $dispatcher = $self->alias($alias);
            $saved_static_dispatcher = $c->app->static;
            $c->app->static($dispatcher);
            # Pushy?
        } );
     $app->hook(
        after_static => sub {
            my ($c) = @_;
            if ($saved_static_dispatcher) {
                $c->app->static($saved_static_dispatcher);
                $saved_static_dispatcher = undef;
            }
        } );
}


1;
__END__