File Coverage

blib/lib/CQL/Utils.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	3	4	75.0
condition	4	4	100.0
subroutine	6	6	100.0
pod	0	3	0.0
total	38	42	90.4

package CQL::Utils;

use strict;
use warnings;
use base qw( Exporter );
our @EXPORT_OK = qw( indent xq renderPrefixes );

## not for public consumption

sub indent {
    my $level = shift || 0;
    return "    " x $level;
}

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

sub renderPrefixes {
    my ($level, @prefixes) = @_;
    return '' if @prefixes == 0;
    my $buffer = indent($level)."\n";
    for my $prefix (@prefixes) {
        $buffer .= indent($level+1)."\n";
        $buffer .= indent($level+2)."".$prefix->getName()."\n"
            if $prefix->getName();
        $buffer .= indent($level+2)."".$prefix->getIdentifier().
            "\n";
        $buffer .= indent($level+1)."\n";
    }
    $buffer .= indent($level)."\n";
}

1;