View of /trunk/webwork/system/lib/PGtranslator.pm

    1 ################################################################################
    2 # WeBWorK mod_perl (c) 2000-2002 WeBWorK Project
    3 # $Id$
    4 ################################################################################
    5 
    6 package PGtranslator;
    7 
    8 =head1 NAME
    9 
   10 PGtranslator - provide instance-independant versions of evaluate_modules
   11 and load_extra_packages.
   12 
   13 =head1 SYNOPSIS
   14 
   15  use PGtranslator;
   16 
   17  PGtranslator->evaluate_modules(@mods);
   18  PGtranslator->load_extra_packages(@pkgs);
   19 
   20  use WeBWorK::PG::Translator;
   21 
   22  my $translator = new WeBWorK::PG::Translator;
   23  $translator->{ra_included_modules} = @PGtranslator::class_modules;
   24 
   25 =cut
   26 
   27 use strict;
   28 use warnings;
   29 use WeBWorK::PG::Translator;
   30 
   31 our @class_modules = ();
   32 
   33 sub evaluate_modules {
   34   my $temp_translator = new WeBWorK::PG::Translator;
   35   $temp_translator->evaluate_modules(@_);
   36   push @class_modules, @{$temp_translator->{ra_included_modules}};
   37 }
   38 
   39 sub load_extra_packages {
   40   my $temp_translator = new WeBWorK::PG::Translator;
   41   $temp_translator->load_extra_packages(@_);
   42   push @class_modules, @{$temp_translator->{ra_included_modules}};
   43 }
   44 
   45 1;