# directory
use parent qw/Catalyst/;
-use Catalyst qw/-Debug
- ConfigLoader
+use Catalyst qw/ConfigLoader
Static::Simple/;
our $VERSION = '0.01';
my ($self, $c) = @_;
my $errors = scalar @{$c->error};
if ($errors) {
+ $c->log->error("Errors in ${\$c->action}:");
+ $c->log->error($_) for @{$c->error};
$c->res->status(500);
$c->res->body('internal server error');
$c->clear_errors;
use strict;
use warnings;
use aliased 'LolCatalyst::Lite::SnippetStore';
+use aliased 'LolCatalyst::Lite::Translator';
-sub COMPONENT { SnippetStore->new }
+sub COMPONENT {
+ SnippetStore->new(translator => Translator->new);
+}
1;
use strict;
use warnings;
use Test::More qw(no_plan);
+use Test::Exception;
use_ok "LolCatalyst::Lite::SnippetStore";
-my $store = LolCatalyst::Lite::SnippetStore->new;
+dies_ok {
+ LolCatalyst::Lite::SnippetStore->new;
+} 'Create without translator object fails';
+
+my $store = LolCatalyst::Lite::SnippetStore->new(translator => 'DUMMY');
my $num_snips = 3;