=cut
-use base qw/Test::Valgrind::Action Test::Valgrind::Action::Captor/;
+use base qw<Test::Valgrind::Action Test::Valgrind::Action::Captor>;
=head1 METHODS
my %validated;
- for (qw/name target/) {
+ for (qw<name target>) {
my $arg = delete $args{$_};
$class->_croak("'$_' is expected to be a plain scalar")
unless $arg and not ref $arg;
my $self = $class->SUPER::new(%args);
- $self->{$_} = $validated{$_} for qw/name target/;
+ $self->{$_} = $validated{$_} for qw<name target>;
$self;
}
$self->SUPER::start($sess);
- delete @{$self}{qw/status supps diagnostics/};
+ delete @{$self}{qw<status supps diagnostics>};
$self->save_fh(\*STDOUT => '>' => undef);
$self->save_fh(\*STDERR => '>' => undef);