File Coverage

blib/lib/Markaya.pm

Criterion	Covered	Total	%
statement	15	41	36.5
branch	0	6	0.0
condition			n/a
subroutine	5	9	55.5
pod	3	3	100.0
total	23	59	38.9

package Markaya;

use warnings;
use strict;
use v5.8.3;
use HTML::Entities;
use YAML::XS qw();

our $VERSION = '0.40';

sub new {
    my $class = shift;
    return bless {}, $class;
}

sub load {
    my $self = shift;
    my $str  = shift;
    $self->{document} = YAML::XS::Load($str);
}

sub to_html {
    my $self = shift;
    _to_html($self->{document});
}

sub _to_html {
    my $node = shift;
    my $ret = "";
    if (ref $node eq "ARRAY") {
        for my $child (@$node) {
            $ret .= _to_html($child)
        }
    }
    elsif(ref $node eq "HASH") {
        while(my ($k,$v) = each %$node) {
            my $attr_str="";
            if (index($k, "=") != -1) {
                ($k, my $attrs) = split(" ", $k, 2);
                my %attrs = (split(/=([^" ]+|"[^"]+") */, $attrs));
                for(sort keys %attrs) {
                    my $v = $attrs{$_};
                    $v =~ s/^"//; $v =~ s/"$//;
                    $v = encode_entities($v);
                    $attr_str .= qq{ $_="$v"}
                }
            }
            $ret .= "<$k$attr_str>". _to_html($v) ."";
        }
    }
    else {
        $ret .= encode_entities( $node )
    }
    return $ret;

}


1;
__END__