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

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

open my $in, "oma_repl_language_text.sql";
open (my $out, ">:encoding(UTF-8)", "utf8.sql");
while (<$in>) {
   print $out $_;
}

dhoss

#!/bin/sh 

# Start a Plack daemon.

PATH=/bin:/usr/bin:/sbin:/usr/sbin:$HOME/perl5/bin
DAEMON="$HOME/perl5/bin/plackup"
NAME="AppName"
CWD=`pwd`
# Defaults
RUN="no"

dhoss

12:26 -!- screen_away: Set away
12:26 [ii] -!- You have been marked as being away
12:26 [oftc] -!- You have been marked as being away
12:26 [scsys] -!- You have been marked as being away
12:26 [MagNET] -!- You have been marked as being away
12:26 [freenode] -!- You have been marked as being away
12:26 [osx86] -!- You have been marked as being away
Day changed to 01 Jan 2010
Day changed to 02 Jan 2010
22:28 -!- screen_away: Reset away

dhoss

package My::Base::REST;

use Moose;

BEGIN { extends 'Catalyst::Controller::REST'; }

use CGI::Expand qw/expand_hash/;

__PACKAGE__->config(
    'default' => 'text/html',

dhoss

### The model ####
package MyApp::Model::Twitter;
use Moose;
use Carp;
use Net::Twitter;
use namespace::autoclean;

extends 'Catalyst::Component';

__PACKAGE__->config(

dhoss

package TestApp::Controller::Namespace;
use Moose;
use namespace::autoclean;

BEGIN { extends 'Catalyst::Controller' }

sub main :Local {
    my ($self, $c) = @_;
    $c->stash( name => 'Bob' );
}