June 2001 Making a Module Back Slide 52 Forward

Shorter %AUTOLOAD

%AUTOLOADABLE = (
  (map {$_ => 's'} qw (serverroot servername httpport serveradmin
                       transferlog errorlog agentlog refererlog)),
  (map {$_ => 'h'} qw (hit host topdomain secdomain login user
                       hitbydate hitbytime hitbydatetime
                       visitorbydate visitorbytime visitorbydatetime
                       method file querystring proto lstatus byte
                       bytebydate bytebytime bytebydatetime
                       referer refererdetail
                       uagent uaversion browser platform browserbyos
                       addr filename hostname ostatus port proc sec url)),
                );

  • Can use map to simplify %AUTOLOADABLE initialization


Copyright © 2001 R. Geoffrey Avery Back Contents Forward