File Coverage

blib/lib/SRU/Utils/XML.pm

Criterion	Covered	Total	%
statement	9	22	40.9
branch	0	4	0.0
condition	0	2	0.0
subroutine	3	7	42.8
pod	4	4	100.0
total	16	39	41.0

package SRU::Utils::XML;
{
  $SRU::Utils::XML::VERSION = '1.01';
}
#ABSTRACT: XML utility functions for SRU

use strict;
use warnings;
use base qw( Exporter );

our @EXPORT_OK = qw( element elementNoEscape escape stylesheet );


sub element {
    my ($tag, $text) = @_;
    return '' if ! defined $text;
    return "<$tag>" . escape($text) . "";
}


sub elementNoEscape {
    my ($tag, $text) = @_;
    return '' if ! defined $text;
    return "<$tag>$text";
}


sub escape {
    my $text = shift || '';
    $text =~ s/
    $text =~ s/>/>/g;
    $text =~ s/&/&/g;
    return $text;
}


sub stylesheet {
    my $uri = shift;
    return qq();
}

1;

__END__