Ist Module::Load unsicher (gelöst) - #187367 (Fragen zu Perl-Modulen)

rosti

2017-09-07 09:58

User since
2011-03-19
3194 Artikel
BenutzerIn

Interessant ist hier die Fabrikmethode in Verbindung mit Perls AUTOLOAD. Die Factorymethod ist ein Verfahren das beschreibt wie Instanzen nicht verwandter Klassen über eine Methode der eigenen Klasse erzeugt werden. Beispiel (ohne AUTOLOAD):

Code (perl): (dl )

require "factory/param.pm";
my $m = bless{};
$m->param();
print Dumper $m;

Der Dumper zeigt die eingebaute Instanz:

Code (perl): (dl )

$VAR1 = bless( {
                 'CGI' => bless( {
                                   'CONTENT_LENGTH' => 0,
                                   'CONTENT_TYPE' => 'application/x-www-form-urlencoded',
                                   'CONTENT_TYPE_ORIGIN' => 'application/x-www-form-urlencoded',
                                   'QUERY_STRING' => '',
                                   'STDIN' => bless( \*Symbol::GEN0, 'IO::String' ),
                                   'eav' => {},
                                   'json' => {},
                                   'param' => {},
                                   'rawdata' => ''
                                 }, 'xCGI' )
               }, 'main' );

Wobei xCGI eine Klasse ist die in der ausgelagerten Funktion ganz normal per use eingebunden wird.

Code (perl): (dl )

package UNIVERSAL;

use xCGI;

sub param{
    my $self = shift;

    $self->{CGI} = xCGI->new() unless defined $self->{CGI};
    return $self->{CGI}->param(@_);
}

1;