Changeset 1214 for lang/perl/Net-Kotonoha

Timestamp:

11/07/07 17:34:29 (6 years ago)

Author:

mattn

Message:

lang/perl/Net-Kotonoha/trunk/Net-Kotonoha/lib/Net/Kotonoha/Koto.pm: added title getter for koto.

Files:

• lang/perl/Net-Kotonoha/trunk/Net-Kotonoha/lib/Net/Kotonoha/Koto.pm (modified) (1 diff)

lang/perl/Net-Kotonoha/trunk/Net-Kotonoha/lib/Net/Kotonoha/Koto.pm

@@ -79 +79 @@
 sub noman {
     return shift->_get_list('//dl[@id="commentsno"]//ul[@class="commentbox"]', 2);
+}
+
+sub title {
+    my $self = shift;
+    my $tree = HTML::TreeBuilder::XPath->new;
+    $tree->parse( $self->_get_content );
+    $tree->eof;
+    my $t = $tree->findnodes('//title');
+    $t = $t ? $t->shift->as_text : undef;
+    $tree->delete;
+    $t;
 }