Hash als Option missbrauchen - #61016 (Allgemeines zu Perl)

bloonix

2005-12-21 21:19

User since
2005-12-17
1615 Artikel
HausmeisterIn

Hallo zusammen,

ich habe das Modul nochmal ein wenig auf den Kopf gestellt und eine
Methode namens new hinzugefügt. Ich habe bisher noch nicht viel mit
OO zu tun gehabt. Ist die Methode so ok?

Code: (dl )

sub new {
   my $Class = shift;
   my %Param;

   if (ref $_[0] eq 'HASH') {
      %Param = %{$_[0]};
   }
   elsif (@_ & 1) {
      die 'Statistics: not enough arguments ...';
   }
   else {
      %Param = @_;
   }

   for (keys %Param) {
      die "Statistics: invalid argument $_"
         unless /^(SysInfo|ProcStats|MemStats|PgSwStats|NetStats|SockStats|DiskStats|DiskUsage|LoadAVG|Processes|TimePoint)$/;
   }

   my $Self = bless(\%Param,$Class);

   return $Self;
}

sub getStats {
   my $Param = shift;
   my $Class = shift;

   ...
   ...

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.