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;

nperez

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

nperez

I have no idea what you are talking about, but it seems angsty. Let me get a couple of points straight:

"as Perl software was not simply and practically written, and was often faulty despite a extensive testing and distribution system"

So you decided that the CPAN sucked and so you wrote your own? What faults? What's not simple or practical to one of the largest online collections of software modules in the world that adheres to the free/open source software ideals?

Ever heard of Not Invented Here? You suffer from that significantly. 

Then you go on to berate an open source developer because he won't recognize your unbound awesomeness and intellectual prowess. Because obviously, you have the answer to all of the projects problems.