髭、はえ初めし頃。

夏休み突入

夏休み突入 # 子供たち、夏休みに突入。といっても、土曜日なので普段の週末と変わらないと言えば変わらない朝食後、セミ採り。今年は昨年、一昨年のような異常発生はしてないので、概ね高い位置で鳴いている。それでもなんとか一匹ゲット。セミはそれっきりだが、カラスアゲハゲット。。。と思いきや、図鑑によると、カラスアゲハってほとんどいないのな。今日のはクロアゲハのメスでした ...

フレームワーク (3) - $obj->query() と $obj->param()

フレームワーク (3) - $obj->query() と $obj->param() # package CGI::Minimal::App; use strict; use warnings; use UNIVERSAL::require; sub query { my $self = shift; my $query = shift; # If query object is not exist, set a new query object. unless ( exists $self->{__QUERY_OBJ} ) { if ( defined $query ) { $self->{__QUERY_OBJ} = $query; } else { my $module = 'CGI::Minimal'; unless ( exists $INC{$module} ) { $module->require or die $!; } $self->{__QUERY_OBJ} = $module->new(); } } return $self->{__QUERY_OBJ}; } sub param : lvalue { my $self = shift; my @data = @_; # First use? Create new __PARAMS! $self->{__PARAMS} = {} unless exists $self->{__PARAMS}; if ( ref($data[0]) eq 'HASH' ) { # param($hash_ref) %{$self->{__PARAMS}} = (%{$self->{__PARAMS}}, %{$data[0]}); } elsif ( scalar(@data) % 2 == 0 ) { # param(@array) %{$self->{__PARAMS}} = (%{$self->{__PARAMS}}, @data); } scalar(@data) == 1 ? $self->{__PARAMS}->{$data[0]} : $self->{__PARAMS}; } C::A::P::Stash 的に param を使いたかった & lvalue 使ってみたかった ...

フレームワーク (2)

フレームワーク (2) # 「HikiDoc を使った WEB アプリケーション」の時にはしりきれとんぼだったので、今回はちょっと続けてみようかと思う。今のところは名称は CGI::Minimal::App (仮) ロジックは CGI::Application をほぼそのまま頂く使い方が変わると、自分自身が使いづらくなるので細かいあたりは、コーディングを楽しめるように自分流で CGI::Minimal の perldoc に「warnings と vars は重て！」とか書いてあるが、どうするかは作ってから考える CGI::Application::Plugin で、いつも使っているものは最初からいれてしまう

amachang のプロフ画像

amachang のプロフ画像 # 一度も会ったことはないが、自分の中では、なんとなくお洒落さんな若者という印象があったamachang 、今日日記を見たら、こんなんなっちゃった。カミングアウト？（笑 ...

フレームワーク

フレームワーク # お昼過ぎ、ふと思い立ってフレームワークを作り始めたので、記録残し CGI::Simple か CGI::Minimal を使って、機能を減らして、もうちっとシンプルな俺仕様 CGI::Application が欲しい。CGI::Application 使ってると、いろんなことを覚えることができないワシはコピペが増えて困る ↓ イチから必要な機能だけ実装した方が楽かも。自分で実装したら覚えること減りそうだし ↓ CGI::Simple よさげだけど、どうせなら CGI::Minimal 使った方が極端で楽しいかも。これで CGI::Application より重くなったら、自分の実装が悪いということで ↓ CGI::Application のマネをするため、コード斜め読み ...