File Coverage

blib/lib/Mojo/Shortcut.pm

Criterion	Covered	Total	%
statement	61	61	100.0
branch	25	30	83.3
condition	6	10	60.0
subroutine	11	11	100.0
pod	4	4	100.0
total	107	116	92.2

package Mojo::Shortcut;
use Mojo::Base -base;
use experimental qw( signatures postderef );

use Carp 'croak';
use List::Util 'first';
use Mojo::Loader;
use Mojo::Util 'camelize';

has namespaces => sub { croak 'Shortcut::namespaces should be defined' };

has base_classes => sub { [] };
has ['action', 'moniker'];

sub new($self, @args) {
  if (@args % 2) {
    my ($moniker, $action) = split '#', shift @args;
    push @args, moniker => $moniker, action => $action;
  }
  $self->SUPER::new(@args);
}

sub invoke($self, @args) {
  my $cb;
  unless ($cb = $self->cb) {
    my $cl = $self->class // $self->moniker // 'undefined';
    my $act = $self->action // 'undefined';
    croak "can't invoke $cl::$act";
  }

  $cb->($self->class->new(@args));
}

sub cb($self, @args) {
  croak 'action must be defined' unless my $action = $self->action;
  my $class = $self->class or return;
  \&{"$class::$action"};
}

sub class($self) {
  my $namespaces = $self->namespaces;
  $namespaces = [$namespaces] unless ref $namespaces;
  my @classes = map { join '::', $_, camelize $self->moniker } @$namespaces;

  foreach my $cur (@classes) {
    if (my $e = Mojo::Loader->load($cur)) {
      ref $e ? die $e : next;
    }

    # is not child of any from base_classes
    if ($self->base_classes->@*) {
      next unless first { $cur->isa($_) } $self->base_classes->@*;
    }

    # action defined but not found
    next if $self->action && !$cur->can($self->action);
    return $cur;
  }

  # nothing found
  return;
}

1;

# ABSTRACT: Mojo::Abstract - loading classes and methods by short#cuts

__END__