File Coverage

blib/lib/Log/Dispatch/XML.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

package Log::Dispatch::XML;
use base 'Log::Dispatch::Buffer';

# Make sure we have version info for this module
# Be strict from now on

$VERSION = '0.01';
use strict;

# Satisfy require

1;

#---------------------------------------------------------------------------
# xml
#
# Return the collected messages as XML.  Reset buffer unless inhibited.
#
#  IN: 1 instantiated object
#      2 name (+ optional attributes) of outer container (default: messages)
#      3 flag: inhibit flushing of messages
# OUT: 1 XML of all the collected messages

sub xml {

# Obtain the parameters
# Set the default container
# Set the close container
# Set the method to be used for fetching messages

    my ($self,$open,$method) = @_;
    $open ||= 'messages';
    my $close = $open =~ m#^([\w:\-]+)# ? $1 : '';
    $method = $method ? 'fetch' : 'flush';

# Obtain the messages
# Initialize the XML
# For all of the messages
#  Add the message to the XML
# Return final XML

    my $messages = $self->$method;
    my $xml = "<$open>";
    foreach (@{$messages}) {
        $xml .= "<$_->{'level'}>{'message'}]]>{'level'}>";
    }
    $xml."";
} #xml

#---------------------------------------------------------------------------

__END__