indent_html

indent_html

sub indent_html {
    my $html = shift;
    my $indent = 0;
    return join "\n", grep { $_ !~ /^\s*$/ } map {
        s{(^\s+|\s+$)}{}g;
        if (m{</}) {
            $indent--;
        }
        $indent = 0 if $indent < 0;
        my $res = '  ' x $indent . $_;
        if (m{/>}) {
        } elsif (m{<(?!/)}) {
            $indent++;
        }
        $res;
    } (
        $html =~ m{
            <[^>]*>
            |
            [^<>]+
        }xg
    );
}