Yet Another CPAN Grep

XML-Parser-Wrapper ( D/DO/DOWENS/XML-Parser-Wrapper-0.15.tar.gz, DOWENS, 2010; MetaCPAN )

XML-Parser-Wrapper/lib/XML/Parser/Wrapper.pm ( view source; MetaCPAN )

\&to_xml;


sub to_jsonml {
    my ($self) = @_;

    return $self->_to_jsonml;
}

sub _to_jsonml {
    my ($self) = @_;

    if ($self->is_text) {
        return $self->_quote_json_str($self->text);

>kids;

    my $json = '[' . $self->_quote_json_str($name);
    if ($attrs and %$attrs) {
        my @keys = sort keys %$attrs;
        my @pairs =
            map { $self->_quote_json_str($_) . ':' .

   $json .= ',' . $attr_str;
    }

    if ($kids and @$kids) {
        foreach my $kid (@$kids) {
            $json .= ',' . $kid->_to_jsonml;
        }
    }

    $json .= ']';

    return $json;
}