File Coverage

blib/lib/Articulate/Serialisation/StatusSetter.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch	0	2	0.0
condition	0	5	0.0
subroutine	3	4	75.0
pod	1	1	100.0
total	13	27	48.1

package Articulate::Serialisation::StatusSetter;
use strict;
use warnings;

use Moo;
with 'Articulate::Role::Component';

=head1 NAME

Articulate::Serialisation::StatusSetter - send the right HTTP status response

=head1 METHODS

=head3 serialise

Sets the status of the Dancer response you're going to be sending to match the status of the Articulate Response.

=cut

sub serialise {
  my $self     = shift;
  my $response = shift;
  if ( ref $response and $response->can('http_code') ) {
    $self->framework->status( $response->http_code // 500 );
  }
  else {
    $self->framework->status(500);
  }
  return undef; # we want to continue with other serialisations
}

1;