X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FAction%2FCaptor.pm;h=ce24fe1efbe8c68e7d8c90f64f1bc0e1c681f160;hb=f2071d95aaaa4817e91cc33530deedc8d701d44d;hp=8463fda7d7d2b4e78cebecd0d9ec548a5c7aab29;hpb=195f0244c01e942307e13d693f196156b9263444;p=perl%2Fmodules%2FTest-Valgrind.git diff --git a/lib/Test/Valgrind/Action/Captor.pm b/lib/Test/Valgrind/Action/Captor.pm index 8463fda..ce24fe1 100644 --- a/lib/Test/Valgrind/Action/Captor.pm +++ b/lib/Test/Valgrind/Action/Captor.pm @@ -9,11 +9,11 @@ Test::Valgrind::Action::Captor - Mock Test::Valgrind::Action for capturing outpu =head1 VERSION -Version 1.11 +Version 1.19 =cut -our $VERSION = '1.11'; +our $VERSION = '1.19'; =head1 DESCRIPTION @@ -25,7 +25,7 @@ It's not meant to be used directly as an action. use File::Spec (); -use base qw/Test::Valgrind::Carp/; +use base qw; =head1 METHODS @@ -50,7 +50,10 @@ sub _dup_fh { or $_[0]->_croak('open(' . fileno($_[1]) . ", '$_[2]&', $fd): $!"); } -=head2 C +=head2 C + + $tva->save_fh($from, $mode); + $tva->save_fh($from, $mode, $to); Save the original filehandle C<$from> opened with mode C<$mode>, and redirect it to C<$to> if it's defined or to F otherwise. @@ -78,6 +81,8 @@ sub save_fh { =head2 C + $tva->restore_all_fh; + Restore all the filehandles that were saved with L to their original state. The redirections aren't closed. @@ -127,7 +132,7 @@ You can find documentation for this module with the perldoc command. =head1 COPYRIGHT & LICENSE -Copyright 2009 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.