Select Code to Download

sub _scalar {
    my $self = shift; my $value = shift;
...
    return ("<value><string>$value</string></value>");
    }
}

sub _hash {
    my $self = shift; my $hash = shift;
...

    return @text;
}