Accès __DATA__ de super classe

Question

J'ai une super classe appelée Réponse:

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 

et une sous-classe appelée URIError:

package URIError; 

use strict; 
use warnings; 

use Response; 
our @ISA = qw(Response); 

1; 

__DATA__ 
Invalid URI 

Lorsque URIError-> réponse est appelée, ligne

my $template = HTML::Template->new('filehandle' => eval("$class::DATA")); 

dans la classe de réponse ne prend pas DONNÉES contenu de la section de la classe URIError.

Quelle est la syntaxe pour y parvenir?

Answer 1

Votre code fonctionnera si vous modifiez la méthode body comme ceci. Il n'y a pas besoin de eval: tout ce que vous devez faire est de désactiver strict 'refs' et déréférencer la chaîne "${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; 
}