File Coverage

blib/lib/Articulate/Role/Service.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	16	29	55.1

package Articulate::Role::Service;
use strict;
use warnings;
use Moo::Role;
with 'Articulate::Role::Component';

use Class::Inspector;

has verbs => (
  is      => 'rw',
  default => sub {
    my $self = shift;
    return {
      map { m/^(handle_(.*))$/; $2 => $1; }
      grep { /^handle_/ }
      @{ Class::Inspector->methods(ref $self) },
    };
  },
  coerce  => sub {
    my $original = shift;
    if ( ref $original eq ref {} ) {
      return $original;
    }
    elsif ( ref $original eq ref {} ) {
      return { map { $_ => "handle_$_"; } @$original };
    }
    return { $original => "handle_$original" }
  },
);

sub process_request {
  my $self    = shift;
  my $request = shift;
  my $verbs   = $self->verbs;
  my $verb    = $request->verb;
  if ( exists $verbs->{ $verb } ) {
    my $method = $verbs->{ $verb };
    $request->app($self->app);
    return $self->$method($request, @_);
  }
  return undef; # whatever else the user wants, we can't provide it
}

with 'Articulate::Role::Component';

1;