# $Id: /mirror/gungho/lib/Gungho/Plugin/Statistics/Format/XML.pm 4238 2007-10-29T15:08:17.605700Z lestrrat $
package Gungho::Plugin::Statistics::Format::XML;
use strict;
use warnings;
use base qw(Gungho::Base);
use XML::LibXML;
sub format
{
my ($self, $storage, $output) = @_;
$output ||= \*STDOUT;
my $doc = XML::LibXML::Document->new("1.0", "UTF-8");
my $root = $doc->createElement('GunghoStatstics');
$doc->setDocumentElement( $root );
my $parent = $root;
foreach my $name qw(active_requests finished_requests) {
my $tag = $name;
$tag =~ s/(?:\b|_)(.)/uc $1/ge;
my $el = $doc->createElement($tag);
my $value = $storage->get($name);
if (defined $value) {
$el->appendText($value);
}
$parent->appendChild($el);
}
print $output $doc->toString();
}
1;
__END__
=head1 NAME
Gungho::Plugin::Statistics::Format::XML - Format Statistics As XML
=head1 METHODS
=head2 format
=cut