Index: /lang/perl/WWW-Tube8/trunk/t/01.basic.t
===================================================================
--- /lang/perl/WWW-Tube8/trunk/t/01.basic.t (revision 28403)
+++ /lang/perl/WWW-Tube8/trunk/t/01.basic.t (revision 28589)
@@ -11,5 +11,5 @@
 
 if($online){
-    plan tests => 16;
+    plan tests => 17;
 }else{
     plan skip_all => ": you're offline or tube8.com is down, so skiped all tests.";
@@ -79,4 +79,8 @@
     is $t8->duration, '23:00', 'duration : get duration of video';
 
+    is ref $t8->related_videos,
+       'ARRAY',
+       'related_videos : get related videos list';
+
     # rewrite url for test
     $t8->url('http://www.example.com/test/hoge-hage-foo-bar/77777/');
Index: /lang/perl/WWW-Tube8/trunk/META.yml
===================================================================
--- /lang/perl/WWW-Tube8/trunk/META.yml (revision 28404)
+++ /lang/perl/WWW-Tube8/trunk/META.yml (revision 28589)
@@ -1,5 +1,5 @@
 ---
 name: WWW-Tube8
-version: 0.0.4
+version: 1.0.0
 author:
   - 'Dai Okabayashi <bayashi@cpan.org>'
@@ -10,11 +10,12 @@
 requires:
   Carp: 0
-  Class::Accessor: 0
+  Class::Accessor::Fast: 0
   LWP::UserAgent: 0
   Test::More: 0
+  version: 0
 provides:
   WWW::Tube8:
     file: lib/WWW/Tube8.pm
-    version: 0.0.4
+    version: 1.0.0
 generated_by: Module::Build version 0.3
 meta-spec:
Index: /lang/perl/WWW-Tube8/trunk/lib/WWW/Tube8.pm
===================================================================
--- /lang/perl/WWW-Tube8/trunk/lib/WWW/Tube8.pm (revision 28404)
+++ /lang/perl/WWW-Tube8/trunk/lib/WWW/Tube8.pm (revision 28589)
@@ -5,11 +5,13 @@
 use Carp qw( croak );
 
-use version; our $VERSION = qv('0.0.4');
+use version; our $VERSION = qv('1.0.0');
 
 use LWP::UserAgent;
 
-use base qw(Class::Accessor);
+use base qw(Class::Accessor::Fast);
 __PACKAGE__->mk_accessors(
-    qw( flv thumb get_3gp url id title title_inurl category category_url duration )
+    qw( flv thumb get_3gp
+        url id title title_inurl
+        category category_url duration related_videos )
 );
 
@@ -60,4 +62,19 @@
     $self->category_url($1);
     $self->category($2);
+    $self->_get_related($tube8_page);
+}
+
+sub _get_related {
+    my $self       = shift;
+    my $tube8_page = shift;
+
+    my @related_videos;
+    while ( $tube8_page
+        =~ s!<a href="([^"]+)"><span class="VideoTitles">([^<]+)</span></a>!!
+        )
+    {
+        push @related_videos, { url => $1, title => $2, };
+    }
+    $self->set('related_videos', @related_videos);
 }
 
@@ -96,4 +113,7 @@
     print $t8->category_url . "\n";
     print $t8->duration     . "\n";
+    for my $rv ( @{ $t8->related_videos } ) {
+        print "$rv->{title}\t$rv->{url}\n";
+    }
 
 
@@ -105,8 +125,6 @@
 
 Creates a new WWW::Tube8 instance.
-required param only url.
-
-
-you can get video infomations like follow
+required param is url only.
+you can get video infomations like follow.
 
 =item flv
@@ -130,4 +148,6 @@
 =item duration
 
+=item related_videos
+
 =back
 
Index: /lang/perl/WWW-Tube8/trunk/Changes
===================================================================
--- /lang/perl/WWW-Tube8/trunk/Changes (revision 28404)
+++ /lang/perl/WWW-Tube8/trunk/Changes (revision 28589)
@@ -1,3 +1,6 @@
 Revision history for WWW-Tube8
+
+1.0.0  Sun Jan 18 13:20:00 2009
+       change accessor. and add related_videos method.
 
 0.0.4  Mon Jan 14 12:00:00 2009
Index: /lang/perl/WWW-Tube8/trunk/Build.PL
===================================================================
--- /lang/perl/WWW-Tube8/trunk/Build.PL (revision 28301)
+++ /lang/perl/WWW-Tube8/trunk/Build.PL (revision 28589)
@@ -9,8 +9,9 @@
     dist_version_from   => 'lib/WWW/Tube8.pm',
     requires => {
-        'Test::More'      => 0,
-        'Carp'            => 0,
-        'LWP::UserAgent'  => 0,
-        'Class::Accessor' => 0,
+        'Test::More'            => 0,
+        'version'               => 0,
+        'Carp'                  => 0,
+        'LWP::UserAgent'        => 0,
+        'Class::Accessor::Fast' => 0,
     },
     add_to_cleanup      => [ 'WWW-Tube8-*' ],