Skip to content

Instantly share code, notes, and snippets.

View nrdvana's full-sized avatar

M Conrad nrdvana

View GitHub Profile
#! /usr/bin/env perl
use strict;
use warnings;
use Benchmark qw( :hireswallclock cmpthese );
package OP_Point;
use v5.26;
use Object::Pad;
class OP_Point {
package Mock::RelationalData;
use Moo 2;
my $reldata= Mock::RelationalData->new;
# Define custom mock data generators
$reldata->add_generator("words" => ...);

My Nitpicks with the Design of Moo


The attribute declaraions can get a little bit verbose. Moo(se) isn't bad, but it seems like we ought to be able to do a little better...

has foo => ( is => 'rw', isa => Type, lazy_build => 1, trigger => 1 );