X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Valgrind.git;a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FParser%2FXML%2FTwig.pm;h=f3e268fd3af28822c266f6cd4d2ec16a95a2d037;hp=bc0df39dccff942e4d3730ecb6d121149ba47822;hb=d44c95e8e9820ee69e76506bde7c2c5fbe37b568;hpb=5e79efb82cb666170d0433e927acb2048031ce34 diff --git a/lib/Test/Valgrind/Parser/XML/Twig.pm b/lib/Test/Valgrind/Parser/XML/Twig.pm index bc0df39..f3e268f 100644 --- a/lib/Test/Valgrind/Parser/XML/Twig.pm +++ b/lib/Test/Valgrind/Parser/XML/Twig.pm @@ -3,6 +3,16 @@ package Test::Valgrind::Parser::XML::Twig; use strict; use warnings; +=head1 NAME + +Test::Valgrind::Parser::XML::Twig - Parse valgrind XML output with XML::Twig. + +=head1 VERSION + +Version 1.10 + +=cut + our $VERSION = '1.10'; use Scalar::Util (); @@ -16,6 +26,10 @@ my %handlers = ( '/valgrindoutput/error' => \&handle_error, ); +=head1 METHODS + +=cut + sub new { my $class = shift; $class = ref($class) || $class; @@ -33,6 +47,12 @@ sub new { sub stash { shift->{Stash} } +=head2 C + +The version of the protocol that the stream is currently conforming to. + +=cut + eval "sub $_ { \@_ <= 1 ? \$_[0]->{$_} : (\$_[0]->{$_} = \$_[1]) }" for qw/_session protocol_version/; @@ -123,6 +143,37 @@ sub handle_error { $twig->purge; } +=head1 SEE ALSO + +L, L, L. + +L. + +=head1 AUTHOR + +Vincent Pit, C<< >>, L. + +You can contact me by mail or on C (vincent). + +=head1 BUGS + +Please report any bugs or feature requests to C, or through the web interface at L. +I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. + +=head1 SUPPORT + +You can find documentation for this module with the perldoc command. + + perldoc Test::Valgrind::Parser::XML::Twig + +=head1 COPYRIGHT & LICENSE + +Copyright 2009 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. + +=cut + # End of Test::Valgrind::Parser::XML::Twig package Test::Valgrind::Parser::XML::Twig::Elt;