pktm+2007-11-09 12:29:34--

Nun, wenn die Module größer werden kann man sowas nicht mehr so einfach sagen. Da ist es mir manchmal lieber zweimal zu prüfen als irgendwo was durchflutschen zu lassen.

1
2
3
4
5
6
7
8
9

sub init {
    my $self = shift;
        my $param = ref $_[0] ? shift : {@_};
        if ($param) {
        for (keys %$param) {
            $self->{$_} = $param->{$_};
        }
        }
}