Skip to content

Instantly share code, notes, and snippets.

package SuiteSetup::Web::ActionRole::PrePostHooking;
use Moose::Role;
use Data::Dumper;
=head2 pre_hook|post_hook
Name of the method to be called for (pre|post)-hooks on actions
=cut
package SuiteSetup::Web::DoesCRUD;
use MooseX::MethodAttributes::Role;
use namespace::autoclean;
use Data::Dumper;
use Carp qw(croak);
use Hash::Merge qw( merge );
use Try::Tiny;
=head2 rs
# show some info at the bottom
caption always "%{= kw}%-w%{= gW}%n %t%{-}%+w %-= %{= r}%H%{-} %{= g}%l%{-} %c:%s"
# Don't trap C-s and C-q
defflow off
# clear the screen properly when vim (et al) exits
altscreen on
# no visual bell, thanks
vbell off
package Worker;
use Moose;
use Try::Tiny;
with qw(MooseX::Workers);
use POE qw(Filter::Reference Filter::Line);
sub run {
my $self = shift;
my @jobs = @{$self->get_jobs("jobs.txt")};
for my $job ( @jobs ) {
package MyApp::DataManager;
use Moose;
extends 'Data::Manager';
has 'scope_to_resultsource' => (
is => 'ro',
isa => 'HashRef',
required => 1,
package MyApp::DataManager;
use Moose;
extends 'Data::Manager';
has 'scope_to_resultsource' => (
is => 'ro',
isa => 'HashRef',
required => 1,
Resume/CV
Devin Austin
devin.austin@gmail.com
970-290-6669
Summary: I am a web software developer.
@dhoss
dhoss / Model
Created September 19, 2011 18:36 — forked from anonymous/gist:1227212
package PerlFu::Web::Model::Validator;
use Moose;
use namespace::autoclean;
use Data::Manager;
use Data::Verifier;
use Data::Dumper;
use Carp qw( croak );
extends 'Catalyst::Model';
with 'Catalyst::Component::InstancePerContext';
package PerlFu::Web::Model::Validator::Post;
use Moose;
use namespace::autoclean;
extends 'PerlFu::Web::Model::Validator';
sub _build_profiles {
my $self = shift;
return {
title => {