File Coverage

blib/lib/Test/Litmus/Log.pm

Criterion	Covered	Total	%
statement	6	23	26.0
branch			n/a
condition	0	2	0.0
subroutine	2	5	40.0
pod	0	3	0.0
total	8	33	24.2

# The contents of this file are subject to the Mozilla Public License Version
# 1.1 (the "License"); you may not use this file except in compliance with
# the License. You may obtain a copy of the License at
# http://www.mozilla.org/MPL/
#
# Software distributed under the License is distributed on an "AS IS" basis,
# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
# for the specific language governing rights and limitations under the
# License.
#
# The Original Code is Test::Litmus.
#
# The Initial Developer of the Original Code is The Mozilla Corporation.
#
# Portions created by the Initial Developer are Copyright (C) 2006
# the Initial Developer. All Rights Reserved.
#
# Contributor(s): Zach Lipton

package Test::Litmus::Log;

use v5.6.1;
use strict;

our $VERSION = '0.01';

sub new {
	my $class = shift;
	my %args = @_;
	my $self = {};
	bless $self;

	$self->requiredField('type', %args);
	$self->requiredField('data', %args);

	return $self;
}

sub toXML {
	my $self = shift;
	my $x;

	$x  = ''."\n";
	$x .= '  {'data'}.']]>'."\n";
	$x .= ''."\n";

	return $x;
}

sub requiredField {
	my $self = shift;
	my $fieldname = shift;
	my %args = @_;

	$self->{$fieldname} = $args{'-'.$fieldname} ||
		die "You must specify a $fieldname";
}

1;