[PerlChina] catalyst problem

xu zhou redicaps at gmail.com
Tue Nov 18 04:49:47 PST 2008


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


More information about the China-pm mailing list