MiniFramwork0.01公開
もっとこうしたほうがいいとか当然ありますので突っ込んでもらえたらうれしいです。
個人的には手を入れるべきだなぁと思ってる部分がまだ複数あります。
１．全体の構成
２．メソッドの種類と作り
３．PODの内容
４．エラー処理
etc...
ですかね。
まあ、とりあえず動くってことで公開します。
以下CGI::MiniFramworkです。
package CGI::MiniFramwork;
use strict;
use warnings;
our $VERSION = '0.01';
our $MODE;
our $TARGET;
sub new {
my($class,$self)=(shift,{@_});
bless($self,$class);
my $path_info = $ENV{'PATH_INFO'};
my ($dummy,$target,$mode) = split(/\//,$path_info);
$self->setup($target,$mode);
$self;
}
sub run {
my $self = shift;
my $obj = $self->get_object();
my $mode = $self->get_mode();
$self->print_header();
print $obj->$mode or die $!;
}
sub setup {
my $self = shift;
my $class = shift;
my $mode = shift;
if ( !$mode ) {
$mode = 'start';
}
$self->set_target($class);
$self->set_mode($mode);
}
sub get_object {
my $self = shift;
my $class = $self->get_target();
eval "require $class" or die $!;
my $obj = $class->new;
$obj;
}
sub set_target {
my $self = shift;
my $target = shift;
$TARGET = $target;
}
sub get_target {
$TARGET;
}
sub set_mode {
my $self = shift;
my $mode = shift;
$MODE = $mode;
}
sub get_mode {
$MODE;
}
sub print_header {
my $self = shift;
print "Content-Type: text/html;charset=Shift_JIS\n\n";
}
1;
__END__
# Below is stub documentation for your module. You'd better edit it!
=head1 NAME
CGI::MiniFramwork - CGI framework of a minimum composition.
=head1 SYNOPSIS
### In "webapp.cgi"...
#! /usr/bin/perl
use strict;
use warnings;
use CGI::MiniFramwork;
use lib qw(.);
my $f = CGI::MiniFramwork->new();
$f->run();
### Dispatch Module...
package WebApp
....
sub new {
my($class,$self)=(shift,{@_});
bless($self,$class);
$self;
}
sub start {
my $self = shift;
return "Welcom CGI::MiniFramwork !!";
}
1;
=head1 DESCRIPTION
CGI::MiniFramwork is CGI framework of a minimum composition.
CGI::MiniFramwork doesn't depend on other modules excluding strict and warning.
You copies it onto an arbitrary place if you want to use this.
The preparation ends by this.
=head1 METHOD
=head2 new
=over 4
my $f = CGI::MiniFramwork->new();
Creates and returns new CGI::MiniFramwork object.
=back
=head2 run
=over 4
$f->run();
execute application.
=back
=head2 setup
=over 4
set up now target modules and now run mode.
=back
=head2 get_object
=over 4
get new target object.
=back
=head2 set_target
=over 4
set target module name.
=back
=head2 get_target
=over 4
get now target module name.
=back
=head2 set_mode
=over 4
set new run mode.
=back
=head2 get_mode
=over 4
get now run mode.
=back
=head2 print_header
=over 4
print HTTP Header
default Charset EUC_JP
You must overwrite if you want other charset.
=back
=head1 AUTHOR
Atsushi Kobayashi, E<lt>nekokak at users.sourceforge.jpE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2005 by Atsushi Kobayashi
This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut
どうでしょうか？
配布形式でもつくってあるので後ほどここかWikiのサイトにアップしたいと思います。
感想なんかもいただけたら勉強になるのでうれしいです。
宜しくお願いします。m(_ _)m
CGI-MiniFramwork-0.01ファイルアップ
とりあえず配布形式に纏めたものをアップしてみました。
動作確認用サンプルです。
CGI-MiniFramwork-Sample.tar.gz
さて、これで反応がなかったら(-＿-)。。。。。
（追記）
いきなりPODにtypo発見。。。〓(￣□￣;)ﾅﾝﾄ!!
とりあえず放置。
CGI-MiniFramworkについて
CGI-MiniFramworkについての説明が全くなかったですね＾＾；
なぜ、CGI-MiniFramworkを作成しようと思ったかは、
フレームワークのエントリで書いた通りです。
他のPerlを使ったお仕事とか、よくわからないですが、
私が現状働いているところではCPANモジュールのインストールをするには
多大な労力と時間がかかるのです。そして無理な場合が多い（-_-;
フレームワークのモジュールなんてあればどう考えても作業が楽になるし、
コーディングスタイルも大体、縛ることができるし、メリットの方が大きいと
思うんですよ。
でも、簡単にCPANモジュールを入れられないため、CGI::ApplicationやCatalyst
なんかのフレームワークを導入できない。。。
そういった場合は、通常、その職場内だけでもフレームワークを作成するでしょう。
このCGI-MiniFramworkはそんなフレームワーク作成における
ベースにでもなればいいかなぁと思って作りました。
現状しょぼすぎてサンプルにもならないかもしれませんが。
で、このCGI-MiniFramworkの使い方ですが、CGI::Application::Dispatchに
似せてます。
実際の使い方ですが、CGI-MiniFramworkはPATH_INFOにより
動作させるモジュールとメソッドを決めています。
たとえばframework.cgiというCGIをNeko.pmというモジュールのstartメソッドで起動したい場合は
http://localhost/cgi-bin/framework.cgi/Neko/start
とアクセスします。
/Neko/start
の
Nekoの部分が使用したいモジュール名で、
startの部分がNeko.pmのなかで起動メソッドにしたいメソッド名です。
CGI-MiniFramworkでのデフォルトでの起動メソッドはstartとしてるので、
http://localhost/cgi-bin/framework.cgi/Neko
としても
http://localhost/cgi-bin/framework.cgi/Neko/start
と同じアクセスができます。
構想から数週間あまり考える時間が無く、
実際に作るゾと思ったのが今日のお昼休み
あんまりフレームワークの構成とかメソッドとか練りこむ前に作ったので、
情けない部分もありますが、どうぞ突っ込んでやってください。
CGI-MiniFramworkはPATH_INFOにより動作させるということを許可できるならば、
CGI-MiniFramworkを継承して自分好みのフレームワークが作れるベースになればなぁ、
と目論んでます。
説明が下手糞なのでわかりにくいところとかもあると思いますが、
どしどし質問ください。
公開してるのに反応がないとさみしいっすｗ
では。
