File Coverage

lib/Mojolicious/Plugin/Module/Manager.pm

Criterion	Covered	Total	%
statement	18	45	40.0
branch	0	8	0.0
condition			n/a
subroutine	6	10	60.0
pod	3	3	100.0
total	27	66	40.9

package Mojolicious::Plugin::Module::Manager;
use Mojo::Base -base;
use Mojo::Util qw/camelize decamelize/;
use YAML;
use Carp 'croak';
use Module::Load;
use FindBin;

has modules => sub {{}};
has mod_dir => '';
has 'app';

sub init {
  my ($self, $app, $conf) = @_;
  my $path = $app->home;
  my $conf_dir = $conf->{conf_dir};
  $self->mod_dir($conf->{mod_dir});
  $self->app($app);

  open(my $fh, "$path/$conf_dir/application.yaml") or
    croak "Can't find '$path/$conf_dir/application.yaml'";
  local $/;
  my ($app_conf) = Load(<$fh>);
  close $fh;

  $self->add($_) for @{ $app_conf->{modules} };

  $app->helper(module => sub { $self });
}

sub add {
  my ($self, $name, $module) = @_;
  croak "Trying to reload module \"$name\"!\n" if exists $self->modules->{$name};
  return $self->modules->{$name} = $module if $module;

  my $dir = $self->app->home;
  my $path = decamelize $name;
  $path =~ s/-/\//;
  $path = $dir.'/'.$self->mod_dir.'/'.$path;

  @::INC = ("$path/lib", @::INC);
  load $name;

  my $mod = $name->new;
  $mod->init($self->app, $path);
  $self->modules->{$name} = $mod;
}

sub get {
  my ($self, $name) = @_;
  return exists $self->modules->{$name} ? $self->modules->{$name} : undef;
}

1;

__END__