by ikegami (Patriarch)

on Nov 04, 2008 at 11:20 UTC ( [id://721351]=note: print w/replies, xml )

Need Help??

Select Code to Download

my $ele = $root->look_down(
   _decl => ...was specified...,
) or die qq{declaration not found\n};

my $dec = $ele->attr('_decl');

my $ele = $root->look_down(
   sub { $_[0]->attr('_decl') }
) or die qq{declaration not found\n};

my $dec = $ele->attr('_decl');

my $dec = $root->attr('_decl')
   or die qq{declaration not found\n};

$dec->attr(text => 'DOCTYPE html PUBLIC "HTML4"');

$root->attr('_decl',
   HTML::Element->new('~declaration',
      text => 'DOCTYPE html PUBLIC "HTML4"',
   )
);

#!/usr/bin/perl

...
<head><title>declaration</title></head>
<body><p>declaration</p></body>
</html>

<!DOCTYPE html PUBLIC "HTML4">
<html><head><title>declaration</title></head><body><p>declaration</bod
+y></html>

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://721351]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others taking refuge in the Monastery: (6)

As of 2024-04-19 08:59 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found