3135 |
$test->assert_num_equals (actual_value => 0+@$list, expected_value => 0); |
$test->assert_num_equals (actual_value => 0+@$list, expected_value => 0); |
3136 |
|
|
3137 |
$test->id ('parent'); |
$test->id ('parent'); |
3138 |
|
my $parent; |
3139 |
for ($doc-><M::Document.createElementNS> (<Q::atom|>, 'feed')) { |
for ($doc-><M::Document.createElementNS> (<Q::atom|>, 'feed')) { |
3140 |
|
$parent = $_; |
3141 |
$_-><M::Node.appendChild> |
$_-><M::Node.appendChild> |
3142 |
($doc-><M::Document.createElementNS> (<Q::atom|>, 'author')); |
($doc-><M::Document.createElementNS> (<Q::atom|>, 'author')); |
3143 |
$_-><M::Node.appendChild> |
$_-><M::Node.appendChild> |
3157 |
my $el = $doc-><M::Document.createElementNS> (<Q::atom|>, 'entry'); |
my $el = $doc-><M::Document.createElementNS> (<Q::atom|>, 'entry'); |
3158 |
|
|
3159 |
$test->id ('parent'); |
$test->id ('parent'); |
3160 |
|
my $parent; |
3161 |
for ($doc-><M::Document.createElementNS> (<Q::atom|>, 'feed')) { |
for ($doc-><M::Document.createElementNS> (<Q::atom|>, 'feed')) { |
3162 |
|
$parent = $_; |
3163 |
$_-><M::Node.appendChild> |
$_-><M::Node.appendChild> |
3164 |
($doc-><M::Document.createElementNS> (<Q::atom|>, 'author')); |
($doc-><M::Document.createElementNS> (<Q::atom|>, 'author')); |
3165 |
$_-><M::Node.appendChild> |
$_-><M::Node.appendChild> |