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