diff options
Diffstat (limited to 'ACE/MPC/modules/MPC.pm')
-rw-r--r-- | ACE/MPC/modules/MPC.pm | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/ACE/MPC/modules/MPC.pm b/ACE/MPC/modules/MPC.pm new file mode 100644 index 00000000000..7a99498143d --- /dev/null +++ b/ACE/MPC/modules/MPC.pm @@ -0,0 +1,41 @@ +package MPC; + +# ****************************************************************** +# Description : Instantiate a Driver and run it. This is here to +# maintain backward compatibility. +# Author : Chad Elliott +# Create Date : 1/30/2004 +# ****************************************************************** + +# ****************************************************************** +# Pragma Section +# ****************************************************************** + +use strict; +use Driver; + +# ************************************************************ +# Subroutine Section +# ************************************************************ + +sub new { + my $class = shift; + my $self = bless {'creators' => [], + }, $class; + return $self; +} + + +sub getCreatorList { + return $_[0]->{'creators'}; +} + + +sub execute { + my($self, $base, $name, $args) = @_; + my $driver = new Driver($base, $name, @{$self->{'creators'}}); + return $driver->run(@$args); +} + + +1; |