view release on metacpan or  search on metacpan

lib/Markdown/Parser.pm  view on Meta::CPAN

        else
        {
            my $obj = $top->create_text({
                text => $parts->[ $n ],
            });
            $cb->( $obj );
            $top->add_element( $obj );
        }
    }

    # Depth-first expansion, repeat until no changes (handles cascades)
    my $changed = 1;

    my $walk;
    $walk = sub
    {
        my( $node ) = @_;

        # Recurse into container children first (depth-first)
        if( $node->can( 'children' ) && $node->children->length )
        {