[PerlChina] catalyst problem

Qiang (James) shijialee at gmail.com
Tue Nov 18 08:47:15 PST 2008


xu zhou wrote:
> 粗略看了下catalyst
> 没搞明白Model是如何传递数据给controller的
> 
> 我原以为是这样
> package MyApp::Model::Trial;
> sub new{
> 	my $pack = shift;
> 	my $self = bless {
> 		foo => 'default value foo',
> 	},$pack;
> 	return $self;
> }
> 
> sub get{
> 	return shift->{'foo'};	
> }
> 1
> 
> 然后通过在controller里面调用
> my $a = $c->model('Trial::get');
> 来获得这个model的对象从而调用model的数据

我没用 Catalyst(我用 CGI::Application). 但记得Catalyst 里 Model 的调用方 
法应该是 $c->model('Trial')->method. 这里catalyst 每次调用 
$c->model('Trial') 都会得到一个 MyApp::Model::Trial 的对象,所以接着你就 
可以调用 ->get 。

说的不对的地方请熟悉 catalyst 的朋友指出..

Qiang(James)


More information about the China-pm mailing list