camel

鐃緒申鐃獣とっと￥申鐃夙わ申鐃緒申鐃緒け鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申直鐃緒申鐃緒申鐃塾わ申鐃緒申鐃宿￥申鐃緒申鐃緒申鐃銃継常申鐃緒申箸鐃緒申鐃緒申鐃緒申辰鐃緒申里砲魯錺縁申鐃緒申鐃緒申襦�

subtech - Bulknews::Subtech - MobileAgent
鐃緒申鐃緒申鐃緒申鐃叔わ申覆鐃緒申鐃緒申鐃緒申鐃緒申發緒申發鰹申離鐃緒申鐃緒申匹任鐃銃逸申鐃緒申覆鐃緒申鐃�
無鐃緒申鐃緒申蠅�鐃緒申鐃出わ申鐃緒申鐃淑るか鐃緒申 
package MyMobileAgent;
my $i;
sub new {
    my $class = shift;
    my $self = HTTP::MobileAgent->new(@_);
    my $pkg = __PACKAGE__ . "::". $i++;
    no strict 'refs';
    @{$pkg."::ISA"} = (ref $self, __PACKAGE__);
    bless $self, $pkg;
}

鐃緒申鐃緒申鐃�"Singleton Class"鐃夙わ申鐃緒申鐃緒申鐃緒申鐃緒申如鐃緒申鐃緒申劵腑�鐃緒申II鐃緒申鐃緒申Advanced Perl Programming 2nd Ed.鐃祝常申辰討鐃緒申鐃緒申鐃祝￥申鐃緒申鐃緒申鐃緒申鐃淑駕申鐃塾よう鐃祝わ申鐃緒申弌鐃�$i鐃緒申Enclose鐃緒申鐃緒申必鐃竣わ申鐃淑わ申鐃淑る。

    sub new {
        my $class = shift;
        my $self = HTTP::MobileAgent->new(@_);
        my $id = $self + 0;
        my $pkg = __PACKAGE__ . "::" .  $id;
        no strict 'refs';
        @{$pkg."::ISA"} = (ref $self, __PACKAGE__);
        bless $self, $pkg;
    }

鐃緒申鐃述ョウ鐃緒申II鐃熟わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾ってわ申鐃暑。鐃緒申鐃緒申鐃�"Singleton Method"鐃淑わ申鐃�"Singleton Class"鐃夙わ申鐃緒申鐃緒申法鐃叔￥申鐃緒申鐃緒申鐃緒申鐃緒申鬚い里鐃緒申鐃緒申鼻鐃�instance鐃緒申鐃夙わ申package鐃薯こわ申鐃緒申鐃緒申箸鐃緒申鐃緒申里魯鐃緒申粉鐃緒申鐃緒申鐃緒申鐃緒申襦�

鐃縮のわ申鐃緒申鐃緒申箸鐃緒申討蓮鐃緒申杠鐃�Object::Prototype鐃緒申箸鐃緒申鐃緒申鐃緒申鐃盾あ鐃暑。

use strict;
use warnings;
use lib 'lib';
use HTTP::MobileAgent;
use Object::ProtoType;

my $hm  = HTTP::MobileAgent->new(@ARGV);
my $ma = Object::Prototype->new($hm);
$ma->prototype(is_xhtml => sub {
                   my $self = shift;
                   return 1 if $self->is_docomo and $self->is_foma;
                   return 1 if $self->is_ezweb  and $self->is_win;
                   if ( $self->is_softbank ) {
                       return 1 if $self->is_type_w or $self->is_type_3gc;
                   }
                   return 0;
               });
my $ext = $ma->is_xhtml ? 'xhtml' : 'html';
warn $ext;
__END__

% perl proto.pl "DoCoMo/2.0"
html at proto.pl line 19.
% perl proto.pl "DoCoMo/2.0 N2001"
xhtml at proto.pl line 19.

鐃緒申鐃緒申鐃緒申鐃緒申蝓�

鐃緒申鐃緒申鐃緒申鐃緒申鐃塾はメソ鐃獣ワ申鐃宿加わ申鐃緒申廛薀逸申鐃緒申鐃叔わ申鐃塾わ申鐃緒申鐃出￥申 
package HTTP::MobileAgent::Plugin::XHTML;
use strict;

sub import {
    my $class = shift;
    *HTTP::MobileAgent::is_xhtml = sub { ... }
}

1;

鐃緒申鐃緒申任鐃緒申鐃出￥申鐃緒申鐃盾こ鐃緒申鐃書かなわ申鐃銃も、

sub HTTP::MobileAgent::is_xhtml { ... }

鐃叔わ申圓鐃緒申襦ｏ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申里箸鐃緒申鐃緒申鐃緒申鐃熟緒申鐃緒申鐃緒申鐃薯けわ申鐃緒申鐃緒申鐃淑わ申鐃緒申鐃夙わ申鐃緒申鐃夙￥申鐃盾しHTTP::MobileAgent::is_xhtml()鐃緒申鐃緒申鐃初か鐃緒申鐃緒申存鐃淳わ申鐃銃わ申鐃緒申鐃初、鐃緒申存鐃塾わ申鐃曙が鐃緒申颪�わ申鐃緒申討鐃緒申泙鐃緒申鐃緒申蕁�use warnings 'redefine'鐃緒申鐃緒申鐃緒申鐃銃わ申鐃緒申弌鐃緒申鐃書きの際には警告こわ申鐃出わ申鐃銃わ申鐃緒申襪�鐃緒申Perl鐃叔わ申Warning鐃緒申鐃出わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申里鐃緒申鐃緒申鐃熟￥申鐃緒申的鐃緒申鐃緒申離侫鐃緒申鐃淑らう鐃淑わ申鐃緒申鐃所。

鐃緒申呂螢�鐃初ス鐃熟なわ申戮鐃緒申兢鐃緒申鐃叔緒申雰鐃緒申能颪い討鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申里鐃緒申鐃緒申鐃緒申Gisle Aas鐃塾モジ鐃遵ー鐃暑、鐃獣わ申HTML::Parser鐃緒申鐃緒申鐃所が鐃緒申鐃粛になる。

鐃瞬わ申鐃緒申鐃緒申鐃駿でワ申鐃初ス鐃薯こわ申鐃緒申鐃緒申覆鐃銃」とわ申鐃緒申鐃緒申鐃盾あ鐃緒申里鐃緒申鐃緒申鐃緒申浤鐃銃暗�鐃緒申鐃緒申鐃夙ってわ申鐃緒申里鐃緒申鐃緒申蕁�鐃緒申鐃初ス鐃熟削申鐃緒申造里鐃塾をこわ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾わ申鐃緒申砲癲�鐃術常申鐃熟なわ申戮鐃緒申鐃緒申檗鐃緒申箸鐃緒申鐃緒申澆鐃緒申鐃緒申鐃�

Dan the Man with Too Many Packages to Juggle