dhoss

Moose Hackathon Agenda

This is a list of topics/ideas/wishes/dreams that we will discuss during the Moose hackathon at YAPC::NA this year. They are in no particular order, nor does inclusion of this list imply any type of endorsement of the idea, these are just ideas, so please feel free to add yours in.

---

• Traits/Roles in Class::MOP
  • A low-level trait/role type primitive
• removing Test::Exception from Moose/MOP

dhoss

package WMC::Server::Lite;

use Moose;
use HTTP::Server::Simple;
use IO::Socket::SSL;
use IO::File;
use Regexp::Common qw /URI/;
use DateTime;
use File::Spec;
use Log::Dispatch::Syslog;

dhoss

[dhoss@dhoss ~]$ sudo  /usr/local/www/data/boyosplace/script/boyosplace_fastcgi.pl -l /tmp/boyosplace.socket -n 5 -p /tmp/boyosplace.pid -d
DBIx::Class::Schema::load_namespaces(): We found ResultSet class 'BoyosPlace::Schema::ResultSet::Photos' for 'Photos', but it seems that you had already set 'Photos' to use 'DBIx::Class::InflateColumn::FS::ResultSet' instead at /usr/local/www/data/boyosplace/script/../lib/BoyosPlace/Schema.pm line 7
FastCGI daemon started (pid 29084)

dhoss

<h2>Contacting Dr. Kay</h2>

<div align="center">[% form.render %]</div>

dhoss

#!/usr/bin/perl -w
use strict;
use lib $ENV{MT_HOME} ? "$ENV{MT_HOME}/lib" : 'lib';
use MT::Bootstrap ();
use MT::App::CMS;
use CGI::PSGI;
use Plack::Builder;

my $app = sub {
    my $cgi = CGI::PSGI->new(shift);

dhoss

+my $cgi = new CGI;
-$app = $class->new( %param ) or die $class->errstr;
+$app = $class->new( %param, CGIObject => $cgi ) or die $class->errstr;
 local $SIG{__WARN__} = sub { $app->trace($_[0]) };
+$app->init_request(CGIObject => $cgi);
 $app->run;

## MAKE THIS A REAL FUCKING DIFF

dhoss

#!/usr/bin/perl -w
use strict;
use lib $ENV{MT_HOME} ? "$ENV{MT_HOME}/lib" : 'lib';
use MT::Bootstrap ();
use MT::App::CMS;
use CGI::PSGI;
use Plack::Middleware qw(Static);
use Plack::Builder;

my $app = sub {

dhoss

--- lib/MT/Entry.pm	2009-11-02 21:51:37.000000000 +0000
+++ lib/MT/Entry.pm.orig	2009-11-02 21:51:02.000000000 +0000
@@ -311,8 +311,10 @@
     );
 }
 
-MT::Placement->add_trigger(post_save   => \&flush_category_cache);
-MT::Placement->add_trigger(post_remove => \&flush_category_cache);
+MT::Placement->add_trigger(
+    post_save   => \&flush_category_cache,

dhoss

package Fnargh::Form::Auto;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler::Model::DBIC';
with 'HTML::FormHandler::Render::Simple';
has_field 'submit' => (
    type  => 'Submit',
    label => shift,	  # WTF, not working
); 
sub get_fields {
	my $self = shift;

dhoss

package XXX::Result::Ordered::MatPath;

use warnings;
use strict;

use base qw/DBIx::Class::Ordered/;

sub parent_column { shift->grouping_column (@_) }
sub path_column { shift->position_column (@_) }