App-Office-CMS

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Lingua::EN::Inflect::Number" : "1.11",
            "Log::Handler" : "0.88",
            "Moo" : "2.003002",
            "Path::Class" : "0.37",
            "Plack::Builder" : "0",
            "String::Dirify" : "1.03",
            "Text::Xslate" : "v3.4.0",
            "Tree" : "1.1",
            "Tree::DAG_Node" : "1.29",
            "Tree::DAG_Node::Persist" : "1.12",
            "Try::Tiny" : "0.28",
            "Types::Standard" : "1.000005",
            "parent" : "0.234",
            "strict" : "0",
            "warnings" : "0"
         }
      },
      "test" : {
         "requires" : {
            "Test::More" : "1.001002",
            "Test::Pod" : "1.48"

META.yml  view on Meta::CPAN

  Lingua::EN::Inflect::Number: '1.11'
  Log::Handler: '0.88'
  Moo: '2.003002'
  Path::Class: '0.37'
  Plack::Builder: '0'
  String::Dirify: '1.03'
  Text::Xslate: v3.4.0
  Tree: '1.1'
  Tree::DAG_Node: '1.29'
  Tree::DAG_Node::Persist: '1.12'
  Try::Tiny: '0.28'
  Types::Standard: '1.000005'
  parent: '0.234'
  strict: '0'
  warnings: '0'
resources:
  license: http://dev.perl.org/licenses/
  repository: https://github.com/ronsavage/App-Office-CMS.git
version: '0.93'
x_serialization_backend: 'CPAN::Meta::YAML version 0.012'

Makefile.PL  view on Meta::CPAN

		'Moo'								=> 2.003002,
		'parent'							=> 0.234,
		'Path::Class'						=> 0.37,
		'Plack::Builder'					=> 0,
		'strict'							=> 0,
		'String::Dirify'					=> 1.03,
		'Text::Xslate'						=> 3.4.0,
		'Tree'								=> 1.10,
		'Tree::DAG_Node'					=> 1.29,
		'Tree::DAG_Node::Persist'			=> 1.12,
		'Try::Tiny'							=> 0.28,
		'Types::Standard'					=> 1.000005,
		'warnings'							=> 0,
	},
	TEST_REQUIRES =>
	{
		'Test::More'	=> 1.001002,
		'Test::Pod'		=> 1.48,
	},
	VERSION_FROM => 'lib/App/Office/CMS.pm',
);

lib/App/Office/CMS.pm  view on Meta::CPAN

Web pages are generated by pouring the content into the template.

Two (2) sample templates are provided.

=item o Configuration

See lib/App/Office/CMS/.htoffice.cms.conf.

=item o Errors

As far as possible, L<Try::Tiny> is used to catch non-DBI errors.

DBI errors are caught using the HandleError attribute key in the call to
DBI's connect() method.

=back

=head1 Security

Minimal effort has been made to sanitize error messages, so there's a risk
that information you don't wish to leak out may be displayed on the end-user's

lib/App/Office/CMS/Controller/Backup.pm  view on Meta::CPAN

package App::Office::CMS::Controller::Backup;

use parent 'App::Office::CMS::Controller';
use strict;
use warnings;

use JSON::XS;

use Try::Tiny;

# We don't use Moo because we isa CGI::Application.

our $VERSION = '0.93';

# -----------------------------------------------

sub build_error_result
{
	my($self, $page, $message, $target_div) = @_;

lib/App/Office/CMS/Controller/Content.pm  view on Meta::CPAN

use File::Path 'make_path';

use File::Slurper 'write_text';

use JSON::XS;

use Path::Class; # For file().

use String::Dirify;

use Try::Tiny;

# We don't use Moo because we isa CGI::Application.

our $VERSION = '0.93';

# -----------------------------------------------

sub backup
{
	my($self) = @_;

lib/App/Office/CMS/Controller/Design.pm  view on Meta::CPAN

package App::Office::CMS::Controller::Design;

use parent 'App::Office::CMS::Controller';
use strict;
use warnings;

use JSON::XS;

use Try::Tiny;

# We don't use Moo because we isa CGI::Application.

our $VERSION = '0.93';

# -----------------------------------------------

sub cgiapp_init
{
	my($self) = @_;

lib/App/Office/CMS/Controller/Page.pm  view on Meta::CPAN

package App::Office::CMS::Controller::Page;

use parent 'App::Office::CMS::Controller';
use strict;
use warnings;

use JSON::XS;

use Try::Tiny;

# We don't use Moo because we isa CGI::Application.

our $VERSION = '0.93';

# -----------------------------------------------

sub add_child
{
	my($self) = @_;

lib/App/Office/CMS/Controller/Site.pm  view on Meta::CPAN

package App::Office::CMS::Controller::Site;

use parent 'App::Office::CMS::Controller';
use strict;
use warnings;

use JSON::XS;

use Try::Tiny;

# We don't use Moo because we isa CGI::Application.

our $VERSION = '0.93';

# -----------------------------------------------

sub add
{
	my($self) = @_;

lib/App/Office/CMS/Database.pm  view on Meta::CPAN

use DBI;

use DBIx::Admin::CreateTable;

use DBIx::Simple;

use File::Slurper 'read_lines';

use Moo;

use Try::Tiny;

use Types::Standard qw/Any HashRef/;

has asset =>
(
	is  => 'rw',
	isa => Any, # 'App::Office::CMS::Database::Asset',
);

has config =>

lib/App/Office/CMS/View/Content.pm  view on Meta::CPAN

package App::Office::CMS::View::Content;

use strict;
use warnings;

use Moo;

use Text::Xslate 'mark_raw';

use Try::Tiny;

extends 'App::Office::CMS::View::Base';

our $VERSION = '0.93';

# -----------------------------------------------

sub build_head_js
{
	my($self) = @_;

lib/App/Office/CMS/View/Page.pm  view on Meta::CPAN

package App::Office::CMS::View::Page;

use strict;
use warnings;

use Moo;

use Text::Xslate 'mark_raw';

use Try::Tiny;

extends 'App::Office::CMS::View::Base';

our $VERSION = '0.93';

# -----------------------------------------------

sub build_head_js
{
	my($self) = @_;

t/00.versions.t  view on Meta::CPAN

use Moo;
use parent;
use Path::Class;
use Plack::Builder;
use strict;
use String::Dirify;
use Text::Xslate;
use Tree;
use Tree::DAG_Node;
use Tree::DAG_Node::Persist;
use Try::Tiny;
use Types::Standard;
use warnings;

# ----------------------

pass('All external modules loaded');

my(@modules) = qw
/
	Brannigan

t/00.versions.t  view on Meta::CPAN

	Moo
	parent
	Path::Class
	Plack::Builder
	strict
	String::Dirify
	Text::Xslate
	Tree
	Tree::DAG_Node
	Tree::DAG_Node::Persist
	Try::Tiny
	Types::Standard
	warnings
/;

diag "Testing App::Office::CMS V $App::Office::CMS::VERSION";

for my $module (@modules)
{
	no strict 'refs';