File Coverage

blib/lib/Mojolicious/Plugin/Module/Abstract.pm

Criterion	Covered	Total	%
statement	30	41	73.1
branch	3	6	50.0
condition			n/a
subroutine	9	10	90.0
pod	6	6	100.0
total	48	63	76.1

package Mojolicious::Plugin::Module::Abstract;
use Mojo::Base -base;
use Mojo::Util 'decamelize';
use YAML;
use Hash::Merge::Simple qw/merge/;

has 'routes';
has 'config' => sub { {} };

sub init {
  my ($self, $app, $path) = @_;
  $self->init_config($app, $path);
  $self->init_routes($app);
  $self->init_templates($app);
  $self->init_helpers($app);
  $self->startup($app);
}

sub init_routes {}

sub init_helpers {}

sub startup {}

sub init_templates {
  my ($self, $app) = @_;
  my $pkg = decamelize ref $self;
  $pkg =~ s/-/\//;

  return if !-d $self->config->{path}.'/templates/'.$pkg;
  my $paths = $app->renderer->paths;
  unshift @$paths, $self->config->{path}.'/templates/'.$pkg;
  $app->renderer->paths($paths);
}

sub init_config {
  my ($self, $app, $path) = @_;
  my $pkg = decamelize ref $self;
  $pkg =~ s/-/\//;
  my $fh;

  open($fh, "./config/$pkg.yaml") and do {
    local $/;
    my ($data) = Load(<$fh>);
    $self->config($data);
    close $fh;
  };
  $self->config({ %{$self->config}, path => $path });

  open($fh, $self->config->{path}.'/config/module.yaml') and do {
    local $/;
    my ($data) = Load(<$fh>);
    close $fh;
    $self->config(merge $data, $self->config);
  };
}

1;

__END__