970-290-6669
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
cpanm (App::cpanminus) 1.5007 on perl 5.010001 built for i486-linux-gnu-thread-multi | |
Work directory is /home/alnewkirk/.cpanm/work/1329005653.16422 | |
You have make /usr/bin/make | |
You have LWP 6.03 | |
You have /bin/tar: tar (GNU tar) 1.22 | |
Copyright (C) 2009 Free Software Foundation, Inc. | |
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>. | |
This is free software: you are free to change and redistribute it. | |
There is NO WARRANTY, to the extent permitted by law. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package SuiteSetup::Schema::Result::Account; | |
use SuiteSetup::Schema::Candy | |
-components => [qw( | |
InflateColumn::DateTime | |
TimeStamp | |
Helper::Row::ToJSON | |
)]; | |
use Data::Dumper; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 ) { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package MyApp::DataManager; | |
use Moose; | |
extends 'Data::Manager'; | |
has 'scope_to_resultsource' => ( | |
is => 'ro', | |
isa => 'HashRef', | |
required => 1, |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package MyApp::DataManager; | |
use Moose; | |
extends 'Data::Manager'; | |
has 'scope_to_resultsource' => ( | |
is => 'ro', | |
isa => 'HashRef', | |
required => 1, |