Help for this page

Select Code to Download


  1. or download this
        my (%symbols, $source);
        foreach my $vfile (vf_load($file, $SOVFM_pat)) {
    ...
            my $impl = tie *$fq_symbol, $class, $fq_symbol, -w $file;
            tie %$fq_symbol, $class."::Data", $impl;
        }