File Coverage

blib/lib/Articulate/Role/Flow.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch	1	2	50.0
condition			n/a
subroutine	5	6	83.3
pod	2	2	100.0
total	24	28	85.7

package Articulate::Role::Flow;
use strict;
use warnings;
use Moo::Role;

=head1 NAME

Articulate::Role::Flow - methods

=head1 DESCRIPTION

This is a helper class for flow roles. All consumers of this role must have a C method which can be called as follows:

  $self->process_method( $methodname, $item, $request );

This role provides a method C<_delegate> which can be used to delegate to other providers. It is called as:

  $self->_delegate( $method, $providers, $args )

where C<$providers> and C<$args> are arrayrefs.

=cut

=head1 METHODS

=cut

=head3 enrich

  $self->enrich($item);

Does

  $self->process_method( enrich => $item );

=cut

sub enrich {
  my $self = shift;
  $self->process_method( enrich => @_ );
}

=head3 augment

  $self->augment($item);

Does

  $self->process_method( augment => $item );

=cut

sub augment {
  my $self = shift;
  $self->process_method( augment => @_ );
}

sub _delegate {
  my ( $self, $method, $providers, $args ) = @_;
  foreach my $provider (@$providers) {
    my $result = $provider->$method(@$args);
    return $result unless defined $result;
  }
  return $args->[0];
}

1;