Articulate

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Hash::Merge" : "0.2",
            "IO::All" : "0",
            "JSON" : "0",
            "Module::Load" : "0",
            "Moo" : "1.004",
            "MooX::Singleton" : "0",
            "SQL::Translator" : "0.11018",
            "Test::More" : "0.98",
            "Text::Markdown" : "0",
            "Throwable" : "0.200012",
            "Try::Tiny" : "0",
            "YAML" : "0",
            "perl" : "5.010001"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "bugtracker" : {
         "web" : "http://github.com/pdl/Articulate/issues"
      },

META.yml  view on Meta::CPAN

  Hash::Merge: '0.2'
  IO::All: '0'
  JSON: '0'
  Module::Load: '0'
  Moo: '1.004'
  MooX::Singleton: '0'
  SQL::Translator: '0.11018'
  Test::More: '0.98'
  Text::Markdown: '0'
  Throwable: '0.200012'
  Try::Tiny: '0'
  YAML: '0'
  perl: '5.010001'
resources:
  bugtracker: http://github.com/pdl/Articulate/issues
  homepage: http://github.com/pdl/Articulate
  repository: http://github.com/pdl/Articulate
version: '0.005'

MYMETA.json  view on Meta::CPAN

            "Hash::Merge" : "0.2",
            "IO::All" : "0",
            "JSON" : "0",
            "Module::Load" : "0",
            "Moo" : "1.004",
            "MooX::Singleton" : "0",
            "SQL::Translator" : "0.11018",
            "Test::More" : "0.98",
            "Text::Markdown" : "0",
            "Throwable" : "0.200012",
            "Try::Tiny" : "0",
            "YAML" : "0",
            "perl" : "5.010001"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "bugtracker" : {
         "web" : "http://github.com/pdl/Articulate/issues"
      },

MYMETA.yml  view on Meta::CPAN

  Hash::Merge: '0.2'
  IO::All: '0'
  JSON: '0'
  Module::Load: '0'
  Moo: '1.004'
  MooX::Singleton: '0'
  SQL::Translator: '0.11018'
  Test::More: '0.98'
  Text::Markdown: '0'
  Throwable: '0.200012'
  Try::Tiny: '0'
  YAML: '0'
  perl: '5.010001'
resources:
  bugtracker: http://github.com/pdl/Articulate/issues
  homepage: http://github.com/pdl/Articulate
  repository: http://github.com/pdl/Articulate
version: '0.005'

Makefile.PL  view on Meta::CPAN

    'IO::All'           => 0,
    'JSON'              => 0,
    'Module::Load'      => 0,
    'Moo'               => 1.004000,
    'MooX::Singleton'   => 0,       # for now at least
    'SQL::Translator'   => 0.11018,
    'Test::More' =>
      0.98, # needs a reasonably modern version for things like subtest
    'Text::Markdown' => 0,       # chances are you'll need it
    'Throwable'      => 0.200012,
    'Try::Tiny'      => 0,
    'YAML'           => 0,
  },
  dist  => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
  clean => { FILES    => 'Articulate-*' },
);

lib/Articulate/Service.pm  view on Meta::CPAN

use Articulate::Syntax;

# The following provide objects which must be created on a per-request basis
use Articulate::Request;
use Articulate::Response;

use Moo;

with 'Articulate::Role::Service';
use Try::Tiny;
use Scalar::Util qw(blessed);

use Exporter::Declare;
default_exports qw(articulate_service);

=head1 NAME

Articulate::Service - provide an API to all the core Articulate
features.

lib/Articulate/Service/List.pm  view on Meta::CPAN

use Articulate::Syntax;
use Articulate::Sortation::MetaDelver;

# The following provide objects which must be created on a per-request basis
use Articulate::Request;
use Articulate::Response;

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

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

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

  my $location = new_location $request->data->{location};
  my $sort     = $request->data->{sort}
    ; # needs careful validation as this can do all sorts of fun constructor logic

lib/Articulate/Service/Login.pm  view on Meta::CPAN

package Articulate::Service::Login;

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::Login - provide login, logout

=cut

=head1 METHODS

lib/Articulate/Service/Simple.pm  view on Meta::CPAN

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

lib/Articulate/Service/SimpleForms.pm  view on Meta::CPAN

package Articulate::Service::SimpleForms;

use strict;
use warnings;

use Articulate::Syntax;

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

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

sub handle_create_form {
  my $self       = shift;
  my $request    = shift;
  my $user       = $request->user_id;
  my $location   = new_location $request->data->{location};
  my $permission = $self->authorisation->permitted( $user, write => $location );

  if ($permission) {

lib/Articulate/Service/SimplePreviews.pm  view on Meta::CPAN

package Articulate::Service::SimplePreviews;

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::SimplePreviews - provide preview

=cut

=head1 METHODS