modules/MPC.pm

   1 package MPC;
   2
   3 # ******************************************************************
   4 # Description : Instantiate a Driver and run it.  This is here to
   5 #               maintain backward compatibility.
   6 # Author      : Chad Elliott
   7 # Create Date : 1/30/2004
   8 # ******************************************************************
   9
  10 # ******************************************************************
  11 # Pragma Section
  12 # ******************************************************************
  13
  14 use strict;
  15 use Driver;
  16
  17 # ************************************************************
  18 # Subroutine Section
  19 # ************************************************************
  20
  21 sub new {
  22   my $class = shift;
  23   my $self = bless {'creators' => [],
  24                    }, $class;
  25   return $self;
  26 }
  27
  28
  29 sub getCreatorList {
  30   return $_[0]->{'creators'};
  31 }
  32
  33
  34 sub execute {
  35   my($self, $base, $name, $args) = @_;
  36   my $driver = new Driver($base, $name, @{$self->{'creators'}});
  37   return $driver->run(@$args);
  38 }
  39
  40
  41 1;