Show
Ignore:
Timestamp:
11/25/07 23:35:24 (14 months ago)
Author:
yasu
Message:

lang/perl/WWW-NicoVideo?: 0.02のリリース版; 機能的変更ではない、細部の修正。

Location:
lang/perl/WWW-NicoVideo/trunk
Files:
6 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/WWW-NicoVideo/trunk/Changes

    r1752 r2008  
    11Revision history for Perl extension WWW::NicoVideo. 
     2 
     30.02  Sun Nov 25 23:10:59 JST 2007 
     4        - Fixed sort/order/page options bug in getEntries* methods. 
     5        - Replaced "//" (defined-or) operators with equivarent statement. 
     6        - Some functions moved to WWW::NicoVideo::Scraper and 
     7          WWW::NicoVideo::URL. 
    28 
    390.01  Sun Nov 18 20:59:41 2007 
    410        - original version; created by h2xs 1.23 with options 
    511                -AX -n WWW::NicoVideo 
    6  
  • lang/perl/WWW-NicoVideo/trunk/MANIFEST

    r1973 r2008  
    66lib/WWW/NicoVideo.pm 
    77lib/WWW/NicoVideo/Entry.pm 
     8lib/WWW/NicoVideo/Scraper.pm 
     9lib/WWW/NicoVideo/URL.pm 
    810examples/ritsuko.pl 
  • lang/perl/WWW-NicoVideo/trunk/examples/ritsuko.pl

    r1973 r2008  
    22 
    33# WWW::NicoVideo example 
     4# usage: perl -Ilib examples/ritsuko.pl ritsuko@ritsuko.org your-password 
    45 
    56use utf8; 
  • lang/perl/WWW-NicoVideo/trunk/lib/WWW/NicoVideo.pm

    r1999 r2008  
    1919__PACKAGE__->mk_accessors(qw[agent retry retryInterval mail passwd]); 
    2020 
    21 our $VERSION = "0.01"; 
     21our $VERSION = "0.02"; 
    2222our $AGENT_NAME = "@{[__PACKAGE__]}/$VERSION)"; 
    2323 
     
    168168  binmode STDOUT, ":encoding(euc-jp)"; 
    169169 
    170   my $nv = new WWW::NicoVideo(mail => 'ritsuko@example.com', 
     170  my $nv = new WWW::NicoVideo(mail => 'ritsuko@ritsuko.org', 
    171171                              passwd => "ritchan-wa-kawaiidesuyo"); 
    172172  $nv->login or die "Login failed"; 
     
    248248=item order 
    249249 
    250 Sort order. "a" for ASC, "d" for DESC. 
     250Sort order. "a" for ASC, "d" or undef for DESC. 
    251251 
    252252=back 
  • lang/perl/WWW-NicoVideo/trunk/lib/WWW/NicoVideo/Scraper.pm

    r1999 r2008  
     1# -*- mode: perl; coding: utf-8 -*- 
     2 
    13package WWW::NicoVideo::Scraper; 
    24 
  • lang/perl/WWW-NicoVideo/trunk/lib/WWW/NicoVideo/URL.pm

    r1999 r2008  
     1# -*- mode: perl; coding: utf-8 -*- 
     2 
    13package WWW::NicoVideo::URL; 
    24 
     
    3537  } 
    3638} 
     39 
     40"Ritsuko";