@@ -10,7 +10,14 @@ sub new { } sub attr { - my ($self, $key) = @_; + my ($self, $key, $value) = @_; + if (@_ == 3) { + if (defined $value) { + $self->{node}->setAttribute (lc $key, $value); + } else { + $self->{node}->removeAttribute(lc $key); + } + } $self->{node}->getAttribute(lc $key); } lib/HTML/TreeBuilder/LibXML/Node.pm @@ -33,6 +33,7 @@ sub main { _no_eof($klass); _look_down($klass); _id($klass); + _attr($klass); } sub _simple { @@ -160,6 +161,24 @@ sub _id { $tree = $tree->delete; } +sub _attr { + my $klass = shift; + + my $tree = $klass->new; + $tree->parse($HTML); + $tree->eof; + + my ($a) = $tree->look_down('_tag' => 'a'); + is $a->attr('href'), 'http://wassr.jp/'; + $a->attr('href', 'http://ficia.com/'); + is strip($a->as_HTML), '<a href="http://ficia.com/">wassr</a>'; + $a->attr('href', undef); + is strip($a->as_HTML), '<a>wassr</a>'; + + $tree = $tree->delete; +} + + sub strip { local $_ = shift; s/\n$//g; t/01_simple.t 9e4df4eec4e50826aa1908f8d4427dca4e4138a7 kimura.hideo kimurahideo@Administrator.local http://github.com/hidek/html--treebuilder--libxml/commit/3786603070554790e9ebdffaa949a272d4087c00 3786603070554790e9ebdffaa949a272d4087c00 2009-10-06T05:41:44-07:00 2009-10-06T05:41:44-07:00 add set/remove attr 6482e8ea98598ccf9889a6d5047843bcd9148824 kimura.hideo kimurahideo@Administrator.local