Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
Config.pm	4.83 KB	-rw-rw-rw-	2021-01-17 16:57
DefaultHelpers.pm	23.01 KB	-rw-rw-rw-	2021-01-17 16:57
EPLRenderer.pm	2.53 KB	-rw-rw-rw-	2021-01-17 16:57
EPRenderer.pm	3.26 KB	-rw-rw-rw-	2021-01-17 16:57
HeaderCondition.pm	2.32 KB	-rw-rw-rw-	2021-01-17 16:57
JSONConfig.pm	3.83 KB	-rw-rw-rw-	2021-01-17 16:57
Mount.pm	2.11 KB	-rw-rw-rw-	2021-01-17 16:57
NotYAMLConfig.pm	3.55 KB	-rw-rw-rw-	2021-01-17 16:57
TagHelpers.pm	22.95 KB	-rw-rw-rw-	2021-01-17 16:57

Rename

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

use Mojo::Server;

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

my $path  = (keys %$conf)[0];
  my $embed = Mojo::Server->new->load_app($conf->{$path});
  $embed->secrets($app->secrets);

# Extract host
  my $host;
  ($host, $path) = ($1 ? qr/^(?:.*\.)?\Q$2\E$/i : qr/^\Q$2\E$/i, $3) if $path =~ m!^(\*\.)?([^/]+)(/.*)?$!;

my $route = $app->routes->any($path)->partial(1)->to(app => $embed);
  return $host ? $route->requires(host => $host) : $route;
}

=encoding utf8

=head1 NAME

Mojolicious::Plugin::Mount - Application mount plugin

=head1 SYNOPSIS

# Mojolicious
  my $route = $app->plugin(Mount => {'/prefix' => '/home/sri/foo/script/foo'});

# Mojolicious::Lite
  my $route = plugin Mount => {'/prefix' => '/home/sri/myapp.pl'};

# Adjust the generated route and mounted application
  my $example = plugin Mount => {'/example' => '/home/sri/example.pl'};
  $example->to(message => 'It works great!');
  my $app = $example->pattern->defaults->{app};
  $app->config(foo => 'bar');
  $app->log(app->log);

# Mount application with host
  plugin Mount => {'example.com' => '/home/sri/myapp.pl'};

# Host and path
  plugin Mount => {'example.com/myapp' => '/home/sri/myapp.pl'};

# Or even hosts with wildcard subdomains
  plugin Mount => {'*.example.com/myapp' => '/home/sri/myapp.pl'};

=head1 DESCRIPTION

L<Mojolicious::Plugin::Mount> is a plugin that allows you to mount whole L<Mojolicious> applications.

The code of this plugin is a good example for learning to build new plugins, you're welcome to fork it.

See L<Mojolicious::Plugins/"PLUGINS"> for a list of plugins that are available by default.

=head1 METHODS

L<Mojolicious::Plugin::Mount> inherits all methods from L<Mojolicious::Plugin> and implements the following new ones.

=head2 register

my $route = $plugin->register(Mojolicious->new, {'/foo' => '/some/app.pl'});

Mount L<Mojolicious> application and return the generated route, which is usually a L<Mojolicious::Routes::Route>
object.

=head1 SEE ALSO

L<Mojolicious>, L<Mojolicious::Guides>, L<https://mojolicious.org>.

=cut