If anyone's still interested, I did it like this in the end...

sub create_data_parser{
   my $class = shift;
   my %params = @_;  
   my $parser = "EP::Core::Data::Parser::".$params{data_type};  
   
   require (locate $parser) ?  return $parser->new(%params) : die "Cou
+ldn't load parser";
   
}
[download]

Cxx