=head1 VERSION
-Version 1.01
+Version 1.13
=cut
-our $VERSION = '1.01';
+our $VERSION = '1.13';
=head1 DESCRIPTION
=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);
=head1 COPYRIGHT & LICENSE
-Copyright 2009 Vincent Pit, all rights reserved.
+Copyright 2009,2010,2011 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.