Skip to content

Instantly share code, notes, and snippets.

View nperez's full-sized avatar

nperez nperez

94 followers · 32 following
  • Amsterdam, The Netherlands
View GitHub Profile
@nperez
nperez / gist:328057
Created March 10, 2010 16:48
use Web::Simple 'Hacks';
{
package Hacks;
use IO::All;
use Digest::MD5('md5_hex');
dispatch
{
sub (GET + /verify/Robokill/*/*/)
{
@nperez
nperez / gist:328034
Created March 10, 2010 16:27
http://www.rocksolidarcade.com/verify/Robokill/test%40test.com/caccabad/
@nperez
nperez / gist:328029
Created March 10, 2010 16:25
use Web::Simple 'Hacks';
{
package Hacks;
use IO::All;
dispatch
{
sub (GET + /verify/Robokill/*/*/)
{
my ($self, $email, $salt) = @_;
@nperez
nperez / moosify-validation-configurability.patch
Created December 9, 2009 18:38
==== Patch <moosify-validation-configurability.patch> level 1
Source: 992f488a-d630-404b-95f9-f7d0fdf28443:/local/ccda:4220 [local]
Target: 4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Controller-DBIC-API/1.003/trunk:12230 [mirrored]
(http://dev.catalyst.perl.org/repos/Catalyst/Catalyst-Controller-DBIC-API/1.003/trunk)
Log:
r4216@nicklaptop: nicholas | 2009-12-02 22:33:02 -0600
Mirror/copy Catalyst::Controller::DBIC::API
r4217@nicklaptop: nicholas | 2009-12-06 17:45:04 -0600
checkpoint
r4220@nicklaptop: nicholas | 2009-12-09 12:26:12 -0600
@nperez
nperez / balanced.diff
Created November 20, 2009 21:49
--- /home/nicholas/installed/perl5.10.1/lib/5.10.1/Text/Balanced.pm 2009-11-20 15:38:11.085852509 -0600
+++ Balanced.pm 2009-11-20 15:38:00.451977193 -0600
@@ -643,9 +643,10 @@
sub extract_quotelike (;$$)
{
- my $textref = $_[0] ? \$_[0] : \$_;
+ my ($text, $preamble) = @_;
+ my $textref = \$text;
my $wantarray = wantarray;
@nperez
nperez / more_td+mxd.pl
Created November 20, 2009 04:27
use 5.010;
use MooseX::Declare;
role Template::Declare::AutoForm::Entity(CodeRef :$tag)
{
method preamble(ClassName $name: Ref $arg?) { }
method attributes(ClassName $name: Ref $arg?) { }
method guts(ClassName $name: Ref $arg?) { }
method epilogue(ClassName $name: Ref $arg?) { }
@nperez
nperez / scary_td+mxd.pl
Created November 17, 2009 03:54
use 5.010;
use MooseX::Declare;
class Blarg
{
use MooseX::NonMoose;
use Template::Declare::Tags('HTML');
extends 'Template::Declare';
method foo(ClassName $class: Int $thing) { div { p { "My thing is: $thing" } } }
@nperez
nperez / gist:180886
Created September 4, 2009 13:44
diff --git a/lib/MooseX/Declare/Syntax/Keyword/Role.pm b/lib/MooseX/Declare/Syntax/Keyword/Role.pm
index 889cf0a..4b7944a 100644
--- a/lib/MooseX/Declare/Syntax/Keyword/Role.pm
+++ b/lib/MooseX/Declare/Syntax/Keyword/Role.pm
@@ -66,7 +66,7 @@ sub add_parameterized_customizations {
my @vars = map {
does_role($_, Placeholder)
? ()
- : [$_->variable_name, $_->label, $_->meta_type_constraint]
+ : [$_->variable_name, $_->label, $_->meta_type_constraint, $_->default_value]
@nperez
nperez / magic!
Created September 1, 2009 17:46
use MooseX::Declare;
class Foo
{
method import (ClassName $class: ArrayRef :$traits)
{
Foo->meta->make_mutable;
foreach my $trait (@$traits)
{
with $trait;
@nperez
nperez / Moose Hackathon Agenda.md
Created June 13, 2009 22:15 — forked from perigrin/Moose Hackathon Agenda.md

Moose Hackathon Agenda

  • Traits in C::MOP
  • removing T::E from Moose/MOP
    • adding lives_ok/dies_ok to Test::Moose
  • merging C::MOP and Moose
  • Antlers
  • merging MooseX modules into Moose and/or core
    • MX::AH into core
  • MooseX::Traits -> Moose::Traits