Skip to content

Instantly share code, notes, and snippets.

View jjn1056's full-sized avatar

John Napiorkowski jjn1056

135 followers · 36 following
View GitHub Profile
@jjn1056
jjn1056 / gist:75bfb1cd1186419087780ead40a82186
Last active April 19, 2020 17:34
package DBIx::Class::Result::Valiant;
use DBIx::Class::MooResultClass;
extends 'DBIx::Class';
with 'Valiant::Validates';
sub register_column {
my $self = shift;
my ($column, $info) = @_;
@jjn1056
jjn1056 / gist:1bd16b74a83d9e758430a398c1d742a5
Created April 19, 2020 16:53
package DBIx::Class::Result::Valiant;
use Moo;
extends 'DBIx::Class';
with 'Valiant::Validates';
sub FOREIGNBUILDARGS {
my ( $class, $options ) = @_;
use Devel::Dwarn;
@jjn1056
jjn1056 / test.pl
Created April 19, 2020 02:22
package Local::Base;
use Moo::Role;
has attr1 => (
is => 'ro',
required => 1,
default => sub { 100 },
);
@jjn1056
jjn1056 / gist:a5c6862f759fa56439e470280c90e1df
Last active April 15, 2020 16:27
[info] Application powered by Catalyst 5.90125
HTTP::Server::PSGI: Accepting connections at http://0:5000/
[info] *** Request 1 (0.143/s) [23608] [Wed Apr 15 11:26:04 2020] ***
[debug] Path is "/session/login"
[debug] "POST" request for "login" from "127.0.0.1"
[debug] Body Parameters are:
.-------------------------------------+--------------------------------------------------------------------------.
@jjn1056
jjn1056 / weird.pm
Created April 12, 2020 12:48
unexpected stuff with SQLT
# The DBIC Resultclass
package Example::Schema::Result::Person;
use strict;
use warnings;
use base 'Example::Schema::Result';
__PACKAGE__->table("person");
@jjn1056
jjn1056 / PackageData.pm
Created April 5, 2020 15:42
my @test;
sub test {
my ($class, $arg) = @_;
my $varname = "${class}::test";
no strict "refs";
push @$varname, $arg if defined($arg);
return @$varname,
map { $_->test }
@jjn1056
jjn1056 / MooX::TrackedRoles.pm
Created April 2, 2020 02:44
package MooX::TrackRoles;
use Role::Tiny ();
sub import {
my $class = shift;
my $target = caller;
die "'$target' is not a Role" unless Role::Tiny->is_role($target);
@jjn1056
jjn1056 / gist:45499aab61538b0495b535faeafccda0
Created March 5, 2020 16:58
INFO global: Vagrant version: 2.2.7
INFO global: Ruby version: 2.4.9
INFO global: RubyGems version: 2.6.14.4
INFO global: VAGRANT_LOG="debug"
INFO global: VAGRANT_EXECUTABLE="/opt/vagrant/embedded/gems/2.2.7/gems/vagrant-2.2.7/bin/vagrant"
INFO global: VAGRANT_INSTALLER_ENV="1"
INFO global: VAGRANT_INSTALLER_EMBEDDED_DIR="/opt/vagrant/embedded"
INFO global: VAGRANT_INSTALLER_VERSION="2"
WARN global: resolv replacement has not been enabled!
DEBUG global: Loading core plugin: /opt/vagrant/embedded/gems/2.2.7/gems/vagrant-2.2.7/plugins/synced_folders/nfs/plugin.rb
@jjn1056
jjn1056 / log.txt
Created March 5, 2020 16:46
VAGRANT_LOG=debug vagrant halt
mm-mac-7425:CatmeOps-V3 jnapiorkowski$ VAGRANT_LOG=debug vagrant halt
INFO global: Vagrant version: 2.2.7
INFO global: Ruby version: 2.4.9
INFO global: RubyGems version: 2.6.14.4
INFO global: VAGRANT_LOG="debug"
INFO global: VAGRANT_EXECUTABLE="/opt/vagrant/embedded/gems/2.2.7/gems/vagrant-2.2.7/bin/vagrant"
INFO global: VAGRANT_INSTALLER_EMBEDDED_DIR="/opt/vagrant/embedded"
INFO global: VAGRANT_INSTALLER_ENV="1"
INFO global: VAGRANT_INSTALLER_VERSION="2"
WARN global: resolv replacement has not been enabled!
@jjn1056
jjn1056 / UserTemplate.pm
Last active February 22, 2020 00:05
package View::User;
use Template::Perl;
use Moo;
has 'model' => (is=>'ro', required=>1);
sub template {
my ($class, $builder) = @_;