Select Code to Download

while (<DATA>) { # get a line of POD
  if (/^=item\s+(LDAP_\S+)\s+\((.*)\)/) {# look for a POD line of =ite
+m LDAP_<constant> (<value>)
    $const{$name} = sub () { $value }; # set the constant from what wa
+s in the POD !!!
  }
}

sub fake_module
{
        my ($class, $modname, %subs) = @_; # replace methods  in $modn
+ame with those in %subs
...
                *{ $module . '::' . $sub } = $subs{ $sub }; # store th
+e provided implementation in the symbol table
        }
}