File Coverage

blib/lib/Articulate/Service/Simple.pm

Criterion	Covered	Total	%
statement	71	75	94.6
branch	18	36	50.0
condition			n/a
subroutine	10	10	100.0
pod	4	4	100.0
total	103	125	82.4

package Articulate::Service::Simple;

use strict;
use warnings;
use Articulate::Syntax;

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


use Try::Tiny;
use Scalar::Util qw(blessed);

=head1 NAME

Articulate::Service::Simple - provide create, read, update, delete

=cut

=head1 METHODS

=head3 handle_create


  create => {
    meta     => {}
    content  => '...',
    location => '...'
  }

Creates new content. Throws an error if the content already exists or if the user has no write permission on that location.

=head3 handle_read

  read => {
    location => '...'
  }

Retrieves the content at that location. Throws an error if the content does not exist or if the user has no read permission on that location.

=head3 handle_update

  update => {
    meta     => {}
    content  => '...',
    location => '...'
  }

Updates the content at that location. Throws an error if the content does not exist or if the user has no write permission on that location.

=head3 handle_delete

  delete => {
    location => '...'
  }

Deletes the content at that location. Throws an error if the content does not exist or if the user has no write permission on that location.

=cut

sub handle_create {
  my $self    = shift;
  my $request = shift;
  my $item = blessed $request->data ? $request->data : $self->construction->construct( {
    meta => {},
    (%{$request->data} ? %{$request->data} : ()),
  } );
  my $location = $item->location;

  my $user       = $request->user_id;
  my $permission = $self->authorisation->permitted ( $user, write => $location );
  if ( $permission ) {

    throw_error 'AlreadyExists' if $self->storage->item_exists($location);

    $self->validation->validate   ($item) or throw_error BadRequest => 'The content did not validate';
    $self->enrichment->enrich     ($item, $request); # this will throw if it fails
    $self->storage->create_item   ($item); # this will throw if it fails

    my $item_class = $item->location->[-2];
    $self->augmentation->augment  ($item); # this will throw if it fails

    return response $item_class, {
      $item_class => {
        schema   => $item->meta->{schema},
        content  => $item->content,
        location => $item->location, # as string or arrayref?
      },
    };
  }
  else {
    throw_error Forbidden => $permission->reason;
  }

}

sub handle_read {
  my $self       = shift;
  my $request    = shift;
  my $location   = loc $request->data->{location};
  my $user       = $request->user_id;
  my $permission = $self->authorisation->permitted ( $user, read => $location );
  if ( $permission ) {
    throw_error 'NotFound' unless $self->storage->item_exists($location);
    my $item = $self->construction->construct( {
      meta     => $self->storage->get_meta_cached    ($location),
      content  => $self->storage->get_content_cached ($location),
      location => $location,
    } );

    my $item_class = $item->location->[-2];

    $self->augmentation->augment  ($item); # or throw

    return response $item_class => {
      $item_class => {
        schema  => $item->meta->{schema},
        content => $item->content,
      },
    };
  }
  else {
    return throw_error Forbidden => $permission->reason;
  }
}

sub handle_update {
  my $self    = shift;
  my $request = shift;

  my $item = blessed $request->data ? $request->data : $self->construction->construct( {
    meta => {},
    (%{$request->data} ? %{$request->data} : ()),
  } );
  my $location = $item->location;

  my $user       = $request->user_id;
  my $permission = $self->authorisation->permitted ( $user, write => $location );
  if ( $permission ) {

    throw_error 'NotFound' unless $self->storage->item_exists($location);

    $self->validation->validate ($item) or throw_error BadRequest => 'The content did not validate'; # or throw
    $self->enrichment->enrich   ($item, $request); # this will throw if it fails
    $self->storage->set_meta    ($item) or throw_error 'Internal'; # or throw
    $self->storage->set_content ($item) or throw_error 'Internal'; # or throw

    my $item_class = $item->location->[-2];
    $self->augmentation->augment  ($item) or throw_error 'Internal'; # or throw

    return response $item_class, {
      $item_class => {
        schema   => $item->meta->{schema},
        content  => $item->content,
        location => $item->location, # as string or arrayref?
      },
    };
  }
  else {
    return throw_error Forbidden => $permission->reason;
  }

}

sub handle_delete {
  my $self    = shift;
  my $request = shift;

  my $location = loc $request->data->{location};

  my $user       = $request->user_id;
  my $permission = $self->authorisation->permitted ( $user, write => $location );
  if ( $permission ) {
    throw_error 'NotFound' unless $self->storage->item_exists($location);
    $self->storage->delete_item ($location) or throw_error 'Internal'; # or throw
    return response 'success', { };
  }
  else {
    return throw_error Forbidden => $permission->reason;
  }

}

1;