nperez

 # pseudo code

if($result eq 'Valid ' . $salt)
{
    # THANKS FOR REGISTERING
}

nperez

use Web::Simple 'Hacks';
{
    package Hacks;
    use IO::All;
    use Digest::MD5('md5_hex');
    
    dispatch
    {
        sub (GET + /verify/Robokill/*/*/)
        {

nperez

http://www.rocksolidarcade.com/verify/Robokill/test%40test.com/caccabad/

nperez

use Web::Simple 'Hacks';
{
    package Hacks;
    use IO::All;
    
    dispatch
    {
        sub (GET + /verify/Robokill/*/*/)
        {
            my ($self, $email, $salt) = @_;

nperez

==== 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

--- /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

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

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

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

use MooseX::Declare;

class Foo
{
    method import (ClassName $class: ArrayRef :$traits)
    {
        Foo->meta->make_mutable;
        foreach my $trait (@$traits)
        {
            with $trait;