File Coverage

blib/lib/Mojo/HelloMojo.pm

Criterion	Covered	Total	%
statement	15	16	93.7
branch	4	8	50.0
condition	4	12	33.3
subroutine	3	3	100.0
pod	0	1	0.0
total	26	40	65.0

package Mojo::HelloMojo;
use Mojolicious::Lite;

our $VERSION  = '0.04';

use Cwd;

app->moniker(Mojo::Util::decamelize(app->moniker));

plugin 'Config' => {default => {hello_mojo => ['.']}};

foreach my $app_dir ( $ENV{HELLO_MOJO} ? split /:/, $ENV{HELLO_MOJO} : @{app->config->{hello_mojo}} ) {
  $app_dir = Mojo::Path->new($app_dir)->leading_slash ? Mojo::Home->new($app_dir) : Mojo::Home->new(Mojo::Path->new(getcwd)->trailing_slash(1)->merge($app_dir));
  opendir(my $dh, $app_dir) or next;
  foreach ( grep { !/^\./ } readdir($dh) ) {
    my $app = find_script($app_dir => $_);
    if ( -f $app_dir->rel_file("$_/.nomojo") ) {
      app->log->info("No Mojo for $app, skipping");
    } elsif ( $app && -f $app ) {
      my $mount = plugin Mount => {"/$_" => $app};
      my $home = $mount->pattern->defaults->{app}->home;
      my ($rel_app) = ($app =~ /^$home\W(.*)$/);
      app->log->info("Mounted /$_ => $home / $rel_app");
      if ( my $domain = $mount->pattern->defaults->{app}->config('domain') ) {
        foreach my $d ( ref $domain eq 'ARRAY' ? @$domain : $domain ) {
          my $mount = plugin Mount => {$d => $app};
          my $home = $mount->pattern->defaults->{app}->home;
          my ($rel_app) = ($app =~ /^$home\W(.*)$/);
          app->log->info("Mounted $d => $home / $rel_app");
        }
      }
    } else {
      app->log->info("No start script found for $app, skipping");
    }
  }
  closedir $dh;
}

sub find_script {
  my ($app_dir, $app_name) = @_;
  my $dashes = my $us = $app_name;
  $dashes =~ s/_/-/g;
  $us =~ s/-/_/g;
  my $app;
  foreach ( $app_name, $dashes, $us ) {
    $app = $app_dir->rel_file("$app_name/$_.pl") and -f $app and return $app;
    $app = $app_dir->rel_file("$app_name/$_") and -f $app and return $app;
    $app = $app_dir->rel_file("$app_name/script/$_") and -f $app and return $app;
    $app = $app_dir->rel_file("$app_name/script/$_.pl") and -f $app and return $app;
  }
}

1;

=encoding utf8

=head1 NAME

Mojo::HelloMojo - Mount All full and lite apps!

=head1 SYNOPSIS

  use Mojo::HelloMojo;

  my $hello = Mojo::HelloMojo->new;
  $hello->start;

=head1 DESCRIPTION

L is a L application.

=head1 SEE ALSO

L, L, L.

=cut