Catalyst-Controller-SimpleCAS

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  MIME::Base64: 0
  Module::Runtime: 0
  Moose: 0
  Moose::Role: 0
  MooseX::MethodAttributes::Role: 0.29
  Path::Class: 0
  Scalar::Util: 0
  Storable: 0
  String::Random: 0
  Tie::IxHash: 0
  Try::Tiny: 0
  Types::Standard: 0
  bytes: 0
  namespace::autoclean: 0
  strict: 0
  warnings: 0
resources:
  IRC: irc://irc.perl.org/#rapidapp
  bugtracker: https://github.com/vanstyn/Catalyst-Controller-SimpleCAS/issues
  repository: https://github.com/vanstyn/Catalyst-Controller-SimpleCAS.git
version: 1.002

Makefile.PL  view on Meta::CPAN

    "MIME::Base64" => 0,
    "Module::Runtime" => 0,
    "Moose" => 0,
    "Moose::Role" => 0,
    "MooseX::MethodAttributes::Role" => "0.29",
    "Path::Class" => 0,
    "Scalar::Util" => 0,
    "Storable" => 0,
    "String::Random" => 0,
    "Tie::IxHash" => 0,
    "Try::Tiny" => 0,
    "Types::Standard" => 0,
    "bytes" => 0,
    "namespace::autoclean" => 0,
    "strict" => 0,
    "warnings" => 0
  },
  "TEST_REQUIRES" => {
    "FindBin" => 0,
    "Test::Exception" => 0,
    "Test::More" => 0,

Makefile.PL  view on Meta::CPAN

  "Moose" => 0,
  "Moose::Role" => 0,
  "MooseX::MethodAttributes::Role" => "0.29",
  "Path::Class" => 0,
  "Scalar::Util" => 0,
  "Storable" => 0,
  "String::Random" => 0,
  "Test::Exception" => 0,
  "Test::More" => 0,
  "Tie::IxHash" => 0,
  "Try::Tiny" => 0,
  "Types::Standard" => 0,
  "bytes" => 0,
  "lib" => 0,
  "namespace::autoclean" => 0,
  "strict" => 0,
  "warnings" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {

lib/Catalyst/Controller/SimpleCAS.pm  view on Meta::CPAN

use Moose;
use Types::Standard qw(:all);
use namespace::autoclean;

BEGIN { extends 'Catalyst::Controller' }
with 'Catalyst::Controller::SimpleCAS::Role::TextTranscode';

use Catalyst::Controller::SimpleCAS::Content;

use Module::Runtime;
use Try::Tiny;
use Catalyst::Utils;
use Path::Class qw(file dir);
use JSON;
use MIME::Base64;
use String::Random;

use Scalar::Util 'blessed';

has store_class => ( is => 'ro', default => sub {
  '+File'

lib/Catalyst/Controller/SimpleCAS/MimeUriResolver.pm  view on Meta::CPAN

package Catalyst::Controller::SimpleCAS::MimeUriResolver;
use Moose;

use strict;
use warnings;

use Try::Tiny;

use Email::MIME::CreateHTML::Resolver::LWP;

has 'Cas' => (
  is => 'ro',
  isa => 'Catalyst::Controller::SimpleCAS',
  required => 1
);

has 'Resolver' => (

lib/Catalyst/Controller/SimpleCAS/Role/TextTranscode.pm  view on Meta::CPAN

use strict;
use warnings;

use MooseX::MethodAttributes::Role 0.29;
requires qw(Content fetch_content); #  <-- methods of Catalyst::Controller::SimpleCAS

use Encode;
use HTML::Encoding 'encoding_from_html_document', 'encoding_from_byte_order_mark';
use HTML::TokeParser::Simple;
use Try::Tiny;
use Email::MIME;
use Email::MIME::CreateHTML;
use Catalyst::Controller::SimpleCAS::CSS::Simple; #<-- hack/workaround CSS::Simple busted on CPAN
use String::Random;
use JSON;

use Catalyst::Controller::SimpleCAS::MimeUriResolver;

# FIXME - This is old and broken - file long gone from RapidApp ...
my $ISOLATE_CSS_RULE = ''; #'@import "/static/rapidapp/css/CssIsolation.css";';

lib/Catalyst/Controller/SimpleCAS/Store.pm  view on Meta::CPAN

package Catalyst::Controller::SimpleCAS::Store;

use strict;
use Moose::Role;

use Digest::SHA1;
use IO::File;
use MIME::Base64;
use Try::Tiny;
use File::MimeInfo::Magic;
use Image::Size;
use Email::MIME;
use IO::All;
use Path::Class qw( file dir );

requires qw(
  content_exists
  fetch_content
  add_content

lib/Catalyst/Controller/SimpleCAS/Store/DBIC.pm  view on Meta::CPAN

with qw(
  Catalyst::Controller::SimpleCAS::Store
);

use File::MimeInfo::Magic;
use Image::Size;
use Digest::SHA1;
use IO::File;
use Data::Dumper;
use MIME::Base64;
use Try::Tiny;
use Path::Class qw( file dir );

use IO::All;

use bytes;

has 'model' => ( is => 'ro', isa => 'Str', required => 1 );
has 'tempdir' => ( is => 'ro', isa => 'Str', lazy => 1, default => sub {
  my $self = shift;
  return dir( Catalyst::Utils::class2tempdir($self->resultset->result_class), 'simplecas' )->stringify;

lib/Catalyst/Controller/SimpleCAS/Store/File.pm  view on Meta::CPAN

use warnings;
use Moose;

with qw(
  Catalyst::Controller::SimpleCAS::Store
);

use Data::Dumper;
use IO::File;
use Try::Tiny;
use File::Spec::Functions 'catdir', 'catfile';
use Path::Class qw( file dir );
use IO::All;
use File::Copy 'move';

has 'store_dir' => ( is => 'ro', isa => 'Str', required => 1 );

sub init_store_dir {
  my $self = shift;
  return if (-d $self->store_dir);