我有一个名为 Response 的父类(super class):
package Response;
use strict;
use warnings;
use HTML::Template;
sub response {
my ( $class, $request ) = @_;
return $request->new_response( $class->status, $class->headers, $class->body );
}
sub body {
my $class = shift;
my $template = HTML::Template->new( 'filehandle' => eval("$class::DATA") );
return $template->output() . $class;
}
sub status {
return 200;
}
sub headers {
return [ 'Content-Type' => 'text/html' ];
}
1;
__DATA__
Default content
和一个名为 URIError 的子类:
package URIError;
use strict;
use warnings;
use Response;
our @ISA = qw(Response);
1;
__DATA__
Invalid URI
当调用 URIError->response 时,行
my $template = HTML::Template->new( 'filehandle' => eval("$class::DATA") );
在 Response 类中不从 URIError 类中获取 DATA 部分内容。
实现这个的语法是什么?
最佳答案
如果您像这样更改 body
方法,您的代码将正常工作。不需要 eval
:您所要做的就是禁用 strict 'refs'
并取消引用字符串 "${class}::DATA"
sub body {
my $class = shift;
my $data_fh = do {
no strict 'refs';
*{"${class}::DATA"};
};
my $template = HTML::Template->new( filehandle => $data_fh );
$template->output . $class;
}
关于perl - 从父类(super class)访问 __DATA__,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/25710301/