- my $tool = delete $args{tool} || 'memcheck';
- $tool =~ s/[^\w:]//g;
- $tool = __PACKAGE__ . "::$tool" if $tool !~ /::/;
- $class->_croak("Couldn't load tool $tool: $@") unless eval "require $tool; 1";
+ my ($tool, $msg) = Test::Valgrind::Util::validate_subclass(
+ delete $args{tool} || 'memcheck',
+ );
+ $class->_croak($msg) unless defined $tool;