package new

2008年2月18日
package Hoge;
sub new{
  my $class = shift;
  my $foo = shift;
  my $self  = {
    'hoge' => $foo,
  };
  return bless $self,$class;
}
sub Bar {
  my $self = shift;
  my $aaa = shift;
  ## 処理
  return $aaa;
}
1;

↑こんなの作って

use Hoge;
my $foo = 1;
my $h = Hoge->new($foo);
$h->Bar('aaa');

↑こんな感じ？

関連記事

  1. Amon2で最後/(スラッシュ)ありなしを吸収してDispatchする時のメモ。 アプリじゃなくてNginxとかApacheでやってもいいんですけど、オレオレFlavorに入れとけばいいかなと。 use MyApp::Web::Dispatcher; get '/' => 'Root#index […]...
  2. Perlのstateとは・・？ Data::Validatorで使ったstateですが、そもそもこれ何よ？って話。 use 5.10.0; sub hoge { state $hoge = shift;...
  3. Amon2でコントローラー(Dispatcher)が動く前に処理を入れたい。 元となるソース(というか、修正するファイル)は、以前作成した(Amon2で$c->render()を自動で呼ぶようにしてみた。)のMyApp::Web 気分的には、Catalystのautoに近い挙動を目指す。 p […]...
  4. Catalyst::View::Xslateでfunction追加してみた。 Catalyst::Helper::View::Xslateで生成した、Myapp::View::Xslateにfunctionを追加してみました。 syntaxは、TTerseにしてます。 (元々使ってたTT2用のテン […]...
Perlメモ