=head1 VERSION
-Version 1.14
+Version 1.19
=cut
-our $VERSION = '1.14';
+our $VERSION = '1.19';
=head1 DESCRIPTION
=cut
+use Test::Valgrind::Util;
+
use base qw<Test::Valgrind::Component Test::Valgrind::Carp>;
=head1 METHODS
my %args = @_;
if ($class eq __PACKAGE__) {
- 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;
return $tool->new(%args);
}
my $parser_class = $tvt->parser_class($session);
-Returns the class from which the parser for this tool output will be instanciated.
+Returns the class from which the parser for this tool output will be instantiated.
This method must be implemented when subclassing.
=head1 COPYRIGHT & LICENSE
-Copyright 2009,2010,2011,2013 Vincent Pit, all rights reserved.
+Copyright 2009,2010,2011,2013,2015,2016 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.