Skip to content

Instantly share code, notes, and snippets.

View nrdvana's full-sized avatar

M Conrad nrdvana

View GitHub Profile
diff --git a/toke.c b/toke.c
index e6ff0c4f74..3c32e70dfd 100644
--- a/toke.c
+++ b/toke.c
@@ -9174,6 +9174,13 @@ yyl_try(pTHX_ char *s)
return tok;
goto retry_bufptr;
}
+ if (UTF && s + 2 < PL_bufend && *s == '\xE2' && s[1] == '\x88' && s[2] == '\x9E') {
+ pl_yylval.opval = newSVOP(OP_CONST, 0, newSVnv(NV_INF));
#! /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;
=head1 SYNOPSIS
my $reldata= Mock::RelationalData->new;
# Define custom mock data generators
$reldata->add_generator("words" => ...);

My Nitpicks with the Design of Moo

Verbosity

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 );