Changeset 277 for lang/perl/Text-Nyarlax/trunk/lib/Text/Nyarlax/Util.pm

Timestamp:

09/25/07 15:14:07 (16 months ago)

Author:

nyarla

Message:

lang/perl/Text-Nyarlax: I implemented parse of a list elements ( UnorderedList?, OrderedList?, DefinitionList? ) on Text::Nyarlax::Parser::PRD.
lang/perl/WebService-YouTube?: I canceled the wrong change.
lang/perl/Text-Nyarlax: I implemented parse of a BlockQuote? elements on Text::Nyarlax::Parser::PRD.
lang/perl/plagger: I imported making plugin files.

I changed it so that the attribute of the element might be merged in Text::Nyarlx::Util::join_node.

Files:

• lang/perl/Text-Nyarlax/trunk/lib/Text/Nyarlax/Util.pm (modified) (1 diff)

lang/perl/Text-Nyarlax/trunk/lib/Text/Nyarlax/Util.pm

@@ -59 +59 @@
         ) {
             $prev->push_content( @{ $item->content } );
+            for my $name ( keys %{ $item->attr } ) {
+                $prev->attr->{$name} = $item->attr->{$name}
+                    if ( ! $prev->attr->{$name} );
+            }
         }
         elsif (