sartak

commit 172e8f4b89ec9c5a0dcceef4a8fc1b3ac08e91fc
Author: Shawn M Moore <[email protected]>
Date:   Thu Aug 4 12:24:44 2011 -0400

    First pass at wishlist support under donations

diff --git a/root/account/profile.html b/root/account/profile.html
index 536c1c1..93f9f37 100644
--- a/root/account/profile.html
+++ b/root/account/profile.html

sartak

commit 469d765235c1e3f3360ec37eef1df74a391d1b5f
Author: Shawn M Moore <[email protected]>
Date:   Thu Aug 4 12:24:44 2011 -0400

    First pass at wishlist support under donations

diff --git a/root/account/profile.html b/root/account/profile.html
index 536c1c1..93f9f37 100644
--- a/root/account/profile.html
+++ b/root/account/profile.html

sartak

diff --git a/lib/MooseX/Role/Parameterized/Meta/Parameter.pm b/lib/MooseX/Role/Parameterized/Meta/Parameter.pm
index 6dbc906..b6a040e 100644
--- a/lib/MooseX/Role/Parameterized/Meta/Parameter.pm
+++ b/lib/MooseX/Role/Parameterized/Meta/Parameter.pm
@@ -4,28 +4,6 @@ extends 'Moose::Meta::Attribute';
 
 our $VERSION = '0.26';
 
-# This doesn't actually do anything because _process_options does not consult
-# the default value of "is". hrm.

sartak

$ perl -MCarp::Always -MMoose -E 'package R; use Moose::Role; package C; use Moose; has attr => (is => "ro", traits => [R => { foo => 1 }])'

Roles with parameters cannot be cached. Consider applying the parameters before calling create_anon_class, or using 'weaken => 0' instead at /Users/sartak/.perl/perls/perl-5.14.1/lib/site_perl/5.14.1/darwin-2level/Moose/Meta/Class.pm line 145
        Moose::Meta::Class::_anon_cache_key('Moose::Meta::Class', 'roles', 'ARRAY(0x100b75ca8)', 'weaken', '', 'superclasses', 'ARRAY(0x100b78210)') called at /Users/sartak/.perl/perls/perl-5.14.1/lib/site_perl/5.14.1/darwin-2level/Class/MOP/Package.pm line 109
        Class::MOP::Package::create_anon('Moose::Meta::Class', 'superclasses', 'ARRAY(0x100b78210)', 'roles', 'ARRAY(0x100b75ca8)', 'cache', 1) called at /Users/sartak/.perl/perls/perl-5.14.1/lib/site_perl/5.14.1/darwin-2level/Class/MOP/Class.pm line 473
        Class::MOP::Class::create_anon_class('Moose::Meta::Class', 'superclasses', 'ARRAY(0x100b78210)', 'roles', 'ARRAY(0

sartak

echo '
  select count(*)
  from fields
    join fieldModels on (fields.fieldModelId = fieldModels.id)
    join models on (models.id = fieldModels.modelId)
  where fieldModels.name = "漢字"
    and models.name = "Heisig 漢字";
' | sqlite3 $ANKI_DECK | perl -MDateTime -nlE '
my $kanji_left = 2042 - $_;
my $days_left = DateTime->now->delta_days(DateTime->now->set(day => 26))->delta_days;

sartak

$ perl -e 'use Moose; has;'
You must provide a name for the attribute at /Users/sartak/.perl/perls/perl-5.14.1/lib/site_perl/5.14.1/darwin-2level/Class/MOP/Attribute.pm line 38
        Class::MOP::Attribute::new('Moose::Meta::Attribute', undef, 'definition_context', 'HASH(0x1009813a8)') called at /Users/sartak/.perl/perls/perl-5.14.1/lib/site_perl/5.14.1/darwin-2level/Moose/Meta/Attribute.pm line 106
        Moose::Meta::Attribute::new('Moose::Meta::Attribute', undef, 'definition_context', 'HASH(0x1009813a8)') called at /Users/sartak/.perl/perls/perl-5.14.1/lib/site_perl/5.14.1/darwin-2level/Moose/Meta/Attribute.pm line 114
        Moose::Meta::Attribute::interpolate_class_and_new('Moose::Meta::Attribute', undef, 'definition_context', 'HASH(0x1009813a8)') called at /Users/sartak/.perl/perls/perl-5.14.1/lib/site_perl/5.14.1/darwin-2level/Moose/Meta/Class.pm line 704
        Moose::Meta::Class::_process_new_attribute('Moose::Meta::Class=HASH(0x100af3dc8)', undef, 'definition_context', 'HASH(0x1009813a8)') calle

sartak

$ perl -MText::MeCab -E 'my $mecab = Text::MeCab->new; for (my $node = $mecab->parse("ハリーは暖炉に急行し、暖炉飛行粉の壷をつかみ、火格子にひと摘み投げ入れた"); $node; $node = $node->next) { my @fields = split ",", $node->feature; say sprintf "%s: %s", $node->surface, $fields[6] }'    
ハリー: ハリー
は: は
暖炉: 暖炉
に: に
急行: 急行
し: する
、: 、
暖炉: 暖炉
飛行: 飛行

sartak

$ i+1-for 闇
特に、一九四五年、闇の魔法使い、グリンデルバルドを破ったこと、ドラゴンの血液の十二種類の利用法の発見、パートナーであるニコラス・フラメルとの錬金術の共同研究などで有名
次の瞬間、ハリーは帽子の内側の闇を見ていた
闇の魔術にすごく詳しいんだ、スネイプって
強力な闇の魔術以外、箒に悪さはできん
ハリーの意識は闇の中へと落ちて行った
そこを開けるのには、闇の魔術を使わないといけないのでは――
それは闇の魔法使いの印だって、みんなが知ってる
ハリーは帽子の内側の闇を見つめて、待った
これだけの闇の魔術がここで起こっているというのに！

sartak

#!/usr/bin/env perl
use 5.14.0;
use DateTime;
use DateTime::Format::Duration;

my $depart = DateTime->new(
    time_zone => "America/New_York",
    year      => 2011,
    month     => 10,
    day       => 4,

sartak

<%ARGS>
$Links
</%ARGS>
<%ONCE>
use utf8;
</%ONCE>
<%INIT>
# after 新規チケット
splice @$Links, 2, 0, {
    label => '日本語って新規チケット',