[PerlChina] catalyst problem

粗略看了下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的数据

尝试过发现不是如此

哪位高手讲讲这个
thx
_______________________________________________
China-pm mailing list
China-pm@pm.org
http://mail.pm.org/mailman/listinfo/china-pm