=head1 VERSION
-Version 1.02
+Version 1.11
=cut
-our $VERSION = '1.02';
+our $VERSION = '1.11';
=head1 DESCRIPTION
my %args = @_;
my @paths;
- my $vg = delete $args{vg};
+ my $vg = delete $args{valgrind};
if (defined $vg and not ref $vg) {
@paths = ($vg);
} else {
sub do_suppressions { $_[0]->action->do_suppressions }
+=head2 C<parser_class>
+
+Calls C<< ->tool->parser_class >> with the current session object as the unique argument.
+
+=cut
+
+sub parser_class { $_[0]->tool->parser_class($_[0]) }
+
=head2 C<report_class>
Calls C<< ->action->report_class >> with the current session object as the unique argument.
delete @{$self}{qw/last_status exit_code/};
$self->tool->start($self);
- $self->parser($self->tool->parser_class($self)->new)->start($self);
+ $self->parser($self->parser_class->new)->start($self);
$self->action->start($self);
return;