r75688 - in /trunk/libwww-youtube-download-perl: ./ debian/ inc/Module/ inc/Module/Install/ lib/WWW/YouTube/ t/
takaki at users.alioth.debian.org
takaki at users.alioth.debian.org
Tue Jun 14 13:35:37 UTC 2011
Author: takaki
Date: Tue Jun 14 13:35:23 2011
New Revision: 75688
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=75688
Log:
merge with new upstream
Modified:
trunk/libwww-youtube-download-perl/Changes
trunk/libwww-youtube-download-perl/META.yml
trunk/libwww-youtube-download-perl/debian/changelog
trunk/libwww-youtube-download-perl/inc/Module/Install.pm
trunk/libwww-youtube-download-perl/inc/Module/Install/Base.pm
trunk/libwww-youtube-download-perl/inc/Module/Install/Can.pm
trunk/libwww-youtube-download-perl/inc/Module/Install/Fetch.pm
trunk/libwww-youtube-download-perl/inc/Module/Install/Include.pm
trunk/libwww-youtube-download-perl/inc/Module/Install/Makefile.pm
trunk/libwww-youtube-download-perl/inc/Module/Install/Metadata.pm
trunk/libwww-youtube-download-perl/inc/Module/Install/Win32.pm
trunk/libwww-youtube-download-perl/inc/Module/Install/WriteAll.pm
trunk/libwww-youtube-download-perl/lib/WWW/YouTube/Download.pm
trunk/libwww-youtube-download-perl/t/01_data.txt
trunk/libwww-youtube-download-perl/t/01_simple.t
Modified: trunk/libwww-youtube-download-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/Changes?rev=75688&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/Changes (original)
+++ trunk/libwww-youtube-download-perl/Changes Tue Jun 14 13:35:23 2011
@@ -1,4 +1,8 @@
Revision history for Perl extension WWW::YouTube::Download
+
+0.27 Sun May 29 23:32:31 2011
+ - fixed garbled (akiym++)
+ - fixed typo (akiym++)
0.26 Wed Apr 20 01:34:55 2011
- fixed scrape problem (reported by Octavian++)
Modified: trunk/libwww-youtube-download-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/META.yml?rev=75688&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/META.yml (original)
+++ trunk/libwww-youtube-download-perl/META.yml Tue Jun 14 13:35:23 2011
@@ -7,7 +7,7 @@
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 1.00'
+generated_by: 'Module::Install version 1.01'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -27,4 +27,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://github.com/xaicron/p5-www-youtube-download
-version: 0.26
+version: 0.27
Modified: trunk/libwww-youtube-download-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/debian/changelog?rev=75688&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/debian/changelog (original)
+++ trunk/libwww-youtube-download-perl/debian/changelog Tue Jun 14 13:35:23 2011
@@ -1,3 +1,9 @@
+libwww-youtube-download-perl (0.27-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- TANIGUCHI Takaki <takaki at debian.org> Tue, 14 Jun 2011 22:33:06 +0900
+
libwww-youtube-download-perl (0.26-1) unstable; urgency=low
[ Jonathan Yu ]
Modified: trunk/libwww-youtube-download-perl/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/inc/Module/Install.pm?rev=75688&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/inc/Module/Install.pm (original)
+++ trunk/libwww-youtube-download-perl/inc/Module/Install.pm Tue Jun 14 13:35:23 2011
@@ -31,7 +31,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '1.00';
+ $VERSION = '1.01';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -467,4 +467,4 @@
1;
-# Copyright 2008 - 2010 Adam Kennedy.
+# Copyright 2008 - 2011 Adam Kennedy.
Modified: trunk/libwww-youtube-download-perl/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/inc/Module/Install/Base.pm?rev=75688&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/inc/Module/Install/Base.pm (original)
+++ trunk/libwww-youtube-download-perl/inc/Module/Install/Base.pm Tue Jun 14 13:35:23 2011
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
}
# Suspend handler for "redefined" warnings
Modified: trunk/libwww-youtube-download-perl/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/inc/Module/Install/Can.pm?rev=75688&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/inc/Module/Install/Can.pm (original)
+++ trunk/libwww-youtube-download-perl/inc/Module/Install/Can.pm Tue Jun 14 13:35:23 2011
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libwww-youtube-download-perl/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/inc/Module/Install/Fetch.pm?rev=75688&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/inc/Module/Install/Fetch.pm (original)
+++ trunk/libwww-youtube-download-perl/inc/Module/Install/Fetch.pm Tue Jun 14 13:35:23 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libwww-youtube-download-perl/inc/Module/Install/Include.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/inc/Module/Install/Include.pm?rev=75688&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/inc/Module/Install/Include.pm (original)
+++ trunk/libwww-youtube-download-perl/inc/Module/Install/Include.pm Tue Jun 14 13:35:23 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libwww-youtube-download-perl/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/inc/Module/Install/Makefile.pm?rev=75688&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/inc/Module/Install/Makefile.pm (original)
+++ trunk/libwww-youtube-download-perl/inc/Module/Install/Makefile.pm Tue Jun 14 13:35:23 2011
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libwww-youtube-download-perl/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/inc/Module/Install/Metadata.pm?rev=75688&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/inc/Module/Install/Metadata.pm (original)
+++ trunk/libwww-youtube-download-perl/inc/Module/Install/Metadata.pm Tue Jun 14 13:35:23 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -515,6 +515,7 @@
'GNU Free Documentation license' => 'unrestricted', 1,
'GNU Affero General Public License' => 'open_source', 1,
'(?:Free)?BSD license' => 'bsd', 1,
+ 'Artistic license 2\.0' => 'artistic_2', 1,
'Artistic license' => 'artistic', 1,
'Apache (?:Software )?license' => 'apache', 1,
'GPL' => 'gpl', 1,
@@ -550,9 +551,9 @@
sub _extract_bugtracker {
my @links = $_[0] =~ m#L<(
- \Qhttp://rt.cpan.org/\E[^>]+|
- \Qhttp://github.com/\E[\w_]+/[\w_]+/issues|
- \Qhttp://code.google.com/p/\E[\w_\-]+/issues/list
+ https?\Q://rt.cpan.org/\E[^>]+|
+ https?\Q://github.com/\E[\w_]+/[\w_]+/issues|
+ https?\Q://code.google.com/p/\E[\w_\-]+/issues/list
)>#gx;
my %links;
@links{@links}=();
Modified: trunk/libwww-youtube-download-perl/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/inc/Module/Install/Win32.pm?rev=75688&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/inc/Module/Install/Win32.pm (original)
+++ trunk/libwww-youtube-download-perl/inc/Module/Install/Win32.pm Tue Jun 14 13:35:23 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libwww-youtube-download-perl/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/inc/Module/Install/WriteAll.pm?rev=75688&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/inc/Module/Install/WriteAll.pm (original)
+++ trunk/libwww-youtube-download-perl/inc/Module/Install/WriteAll.pm Tue Jun 14 13:35:23 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: trunk/libwww-youtube-download-perl/lib/WWW/YouTube/Download.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/lib/WWW/YouTube/Download.pm?rev=75688&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/lib/WWW/YouTube/Download.pm (original)
+++ trunk/libwww-youtube-download-perl/lib/WWW/YouTube/Download.pm Tue Jun 14 13:35:23 2011
@@ -4,7 +4,7 @@
use warnings;
use 5.008001;
-our $VERSION = '0.26';
+our $VERSION = '0.27';
use Carp ();
use URI ();
@@ -113,7 +113,7 @@
title => $title,
video_url_map => $video_url_map,
fmt => $hq_data->{fmt},
- fmt_lsit => $fmt_list,
+ fmt_list => $fmt_list,
suffix => $hq_data->{suffix},
};
}
@@ -121,9 +121,7 @@
sub _fetch_title {
my ($self, $content) = @_;
- my ($title) = $content =~ m|<title>(.+)</title>|ims or return;
- $title =~ s/[\r\n]|^\s+|\s+$//g;
- $title = (split /\s+-\s+/, $title, 2)[1];
+ my ($title) = $content =~ /<meta name="title" content="(.+?)">/ or return;
return decode_entities($title);
}
Modified: trunk/libwww-youtube-download-perl/t/01_data.txt
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/t/01_data.txt?rev=75688&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/t/01_data.txt (original)
+++ trunk/libwww-youtube-download-perl/t/01_data.txt Tue Jun 14 13:35:23 2011
@@ -1,6 +1,8 @@
- <title>
+ <title>
YouTube
- - ã®æ‰‹æ›¸ãã§é”法少女ã¾ã©ã‹â˜†ãƒžã‚®ã‚«ï¼¯ï¼°.mp4
- </title>
+ - ‪ã®æ‰‹æ›¸ãã§é”法少女ã¾ã©ã‹â˜†ãƒžã‚®ã‚«ï¼¯ï¼°.mp4‬
+ </title>
+
+ <meta name="title" content="ã®æ‰‹æ›¸ãã§é”法少女ã¾ã©ã‹â˜†ãƒžã‚®ã‚«ï¼¯ï¼°.mp4">
var swfConfig = {"url": "http:\/\/s.ytimg.com\/yt\/swfbin\/watch_as3-vfl4DpYg6.swf", "min_version": "8.0.0", "args": {"rv.2.thumbnailUrl": "http:\/\/i2.ytimg.com\/vi\/Ixazj9bj478\/default.jpg", "rv.7.length_seconds": 90, "rv.0.url": "http:\/\/www.youtube.com\/watch?v=jwY_c2vxNYw", "rv.0.view_count": 2117, "enablecsi": "1", "rv.2.title": "\u9b54\u6cd5\u5c11\u5973\u5c0f\u5713OP", "rv.4.rating": "", "rv.3.view_count": 35038, "is_doubleclick_tracked": "1", "rv.4.thumbnailUrl": "http:\/\/i1.ytimg.com\/vi\/tC7BqMv-9JA\/default.jpg", "fmt_url_map": "34|http:\/\/v9.lscache1.c.youtube.com\/videoplayback?sparams=id%2Cexpire%2Cip%2Cipbits%2Citag%2Calgorithm%2Cburst%2Cfactor%2Coc%3AU0dYTlFUUV9FSkNNOF9JTlVD&algorithm=throttle-factor&itag=34&ipbits=0&burst=40&sver=3&signature=4D216F61C63A1B9DDDD3A837F3EFFCBCDA06297B.ABC59F7AAB4A47CC938CB6833A014701666234CA&expire=1299193200&key=yt1&ip=0.0.0.0&factor=1.25&id=48334a2162ac9611,18|http:\/\/v21.lscache4.c.youtube.com\/videoplayback?sparams=id%2Cexpire%2Cip%2Cipbits%2Citag%2Calgorithm%2Cburst%2Cfactor%2Coc%3AU0dYTlFUUV9FSkNNOF9JTlVD&algorithm=throttle-factor&itag=18&ipbits=0&burst=40&sver=3&signature=B38170914BA6288E84041B3BFAE6E4ED67F7E688.A5810CB3FC25AD29129D3006F907ECFB6D445FCA&expire=1299193200&key=yt1&ip=0.0.0.0&factor=1.25&id=48334a2162ac9611,5|http:\/\/v7.lscache8.c.youtube.com\/videoplayback?sparams=id%2Cexpire%2Cip%2Cipbits%2Citag%2Calgorithm%2Cburst%2Cfactor%2Coc%3AU0dYTlFUUV9FSkNNOF9JTlVD&algorithm=throttle-factor&itag=5&ipbits=0&burst=40&sver=3&signature=9326AF57BFE993192A793A4FB441784404B73370.CE3BBF8A9C369A6E74C699B767783E0CAECE66B7&expire=1299193200&key=yt1&ip=0.0.0.0&factor=1.25&id=48334a2162ac9611", "csi_page_type": "watch", "keywords": "smile", "cr": "JP", "rv.1.url": "http:\/\/www.youtube.com\/watch?v=ZHYnYSVZ1rI", "rv.6.thumbnailUrl": "http:\/\/i4.ytimg.com\/vi\/o1fUoIB9If4\/default.jpg", "rv.3.rating": "", "fmt_list": "34\/640x360\/9\/0\/115,18\/640x360\/9\/0\/115,5\/320x240\/7\/0\/0", "rv.7.id": "Mc8R0YYMKAo", "rv.0.rating": "", "rv.6.author": "necomimity", "rv.3.title": "\u3010\u3000\u5b8c\u3000\u6210\u3000\u3011\u604b\u611b\u5439\u3063\u5207\u30ec\u30fc\u30b7\u30e7\u30f3\u3010\u5439 \u3063 \u5207 \u308c \u305f\u3011 (by \u30a2\u30b9\u30ab\u3055\u3093)", "rv.5.id": "cxyQuLL749s", "rv.0.featured": 1, "rv.0.id": "jwY_c2vxNYw", "rv.5.url": "http:\/\/www.youtube.com\/watch?v=cxyQuLL749s", "rv.6.length_seconds": 90, "sourceid": "ys", "timestamp": 1299169195, "rv.0.author": "ilovehumans1", "rv.3.thumbnailUrl": "http:\/\/i2.ytimg.com\/vi\/Aamcj9upjUs\/default.jpg", "rv.2.author": "yeah7766", "rv.6.url": "http:\/\/www.youtube.com\/watch?v=o1fUoIB9If4", "watch_ajax_token": "EYUfkZXvxObXs4hqzIT470v-ril8MTI5OTI1NTU5NQ==", "fmt_map": "34\/640x360\/9\/0\/115,18\/640x360\/9\/0\/115,5\/320x240\/7\/0\/0", "showpopout": 1, "hl": "ja_JP", "endscreen_module": "http:\/\/s.ytimg.com\/yt\/swfbin\/endscreen-vflis_pza.swf", "rv.5.length_seconds": 229, "rv.0.thumbnailUrl": "http:\/\/i3.ytimg.com\/vi\/jwY_c2vxNYw\/default.jpg", "rv.7.author": "Toweleeie101", "referrer": "http:\/\/www.youtube.com\/results?search_query=%E3%81%BE%E3%81%A9%E3%81%8B%E2%98%86%E3%83%9E%E3%82%AE%E3%82%AB&aq=0", "leanback_module": "http:\/\/s.ytimg.com\/yt\/swfbin\/leanback_module-vflt3sFnU.swf", "rv.1.length_seconds": 180, "rv.3.id": "Aamcj9upjUs", "rv.2.id": "Ixazj9bj478", "rv.2.length_seconds": 90, "t": "vjVQa1PpcFOY_CggToExDmVl9FNQ8vaNA-gQ_uR2rwQ=", "rv.6.id": "o1fUoIB9If4", "rv.6.view_count": 26034, "rv.3.author": "rihoko6", "rv.4.id": "tC7BqMv-9JA", "video_id": "SDNKIWKslhE", "rv.4.author": "Jewelpettwinkle", "rv.7.thumbnailUrl": "http:\/\/i2.ytimg.com\/vi\/Mc8R0YYMKAo\/default.jpg", "sk": "n5yT2S_5yHU8iUszPawvjuJkUTF9yss8U", "allow_embed": 1, "fmt_stream_map": "34|http:\/\/v9.lscache1.c.youtube.com\/videoplayback?sparams=id%2Cexpire%2Cip%2Cipbits%2Citag%2Calgorithm%2Cburst%2Cfactor%2Coc%3AU0dYTlFUUV9FSkNNOF9JTlVD&algorithm=throttle-factor&itag=34&ipbits=0&burst=40&sver=3&signature=4D216F61C63A1B9DDDD3A837F3EFFCBCDA06297B.ABC59F7AAB4A47CC938CB6833A014701666234CA&expire=1299193200&key=yt1&ip=0.0.0.0&factor=1.25&id=48334a2162ac9611||tc.v9.cache1.c.youtube.com,18|http:\/\/v21.lscache4.c.youtube.com\/videoplayback?sparams=id%2Cexpire%2Cip%2Cipbits%2Citag%2Calgorithm%2Cburst%2Cfactor%2Coc%3AU0dYTlFUUV9FSkNNOF9JTlVD&algorithm=throttle-factor&itag=18&ipbits=0&burst=40&sver=3&signature=B38170914BA6288E84041B3BFAE6E4ED67F7E688.A5810CB3FC25AD29129D3006F907ECFB6D445FCA&expire=1299193200&key=yt1&ip=0.0.0.0&factor=1.25&id=48334a2162ac9611||tc.v21.cache4.c.youtube.com,5|http:\/\/v7.lscache8.c.youtube.com\/videoplayback?sparams=id%2Cexpire%2Cip%2Cipbits%2Citag%2Calgorithm%2Cburst%2Cfactor%2Coc%3AU0dYTlFUUV9FSkNNOF9JTlVD&algorithm=throttle-factor&itag=5&ipbits=0&burst=40&sver=3&signature=9326AF57BFE993192A793A4FB441784404B73370.CE3BBF8A9C369A6E74C699B767783E0CAECE66B7&expire=1299193200&key=yt1&ip=0.0.0.0&factor=1.25&id=48334a2162ac9611||tc.v7.cache8.c.youtube.com", "rv.2.rating": "", "rv.7.title": "\u9b54\u6cd5\u5c11\u5973\u307e\u3069\u304b\u2606\u30de\u30ae\u30ab \u300emog mog-MAD\u300f \u3010MAD\u3011", "rv.0.length_seconds": 198, "rv.1.id": "ZHYnYSVZ1rI", "q": "\u00e3\u0081\u00be\u00e3\u0081\u00a9\u00e3\u0081\u008b\u00e2\u0098\u0086\u00e3\u0083\u009e\u00e3\u0082\u00ae\u00e3\u0082\u00ab", "rv.6.title": "\u9b54\u6cd5\u5c11\u5973\u307e\u3069\u304b\u2606\u30de\u30ae\u30ab\u3000OP", "rv.4.length_seconds": 133, "rv.1.thumbnailUrl": "http:\/\/i3.ytimg.com\/vi\/ZHYnYSVZ1rI\/default.jpg", "rv.5.view_count": 83261, "length_seconds": 91, "enablejsapi": 1, "plid": "AASdlmZqc-oeIFYB", "rv.5.rating": "", "rv.4.url": "http:\/\/www.youtube.com\/watch?v=tC7BqMv-9JA", "rv.1.author": "supertortoise54068", "rv.1.rating": "", "rv.4.title": "\u30b8\u30e5\u30a8\u30eb\u30da\u30c3\u30c8\u3066\u3043\u3093\u304f\u308b\u2606\u3068\u3042\u306eOP\u30c7\u30e2\u3092\u6df7\u305c\u3066\u307f\u305f", "rv.5.thumbnailUrl": "http:\/\/i4.ytimg.com\/vi\/cxyQuLL749s\/default.jpg", "watermark": "http:\/\/s.ytimg.com\/yt\/swf\/logo-vfl_bP6ud.swf,http:\/\/s.ytimg.com\/yt\/swf\/hdlogo-vfloR6wva.swf", "rv.0.title": "\u3010\u624b\u66f8\u304d\u3011\u3081_\u3081_\u3057_\u3044_\u3068\u304b\u8272\u3005\u3010izsz\u3011.flv", "rv.7.rating": "", "rv.3.url": "http:\/\/www.youtube.com\/watch?v=Aamcj9upjUs", "rv.2.url": "http:\/\/www.youtube.com\/watch?v=Ixazj9bj478", "rv.7.url": "http:\/\/www.youtube.com\/watch?v=Mc8R0YYMKAo", "rv.2.view_count": 9563, "logwatch": "1", "rv.4.view_count": 12987, "rv.1.view_count": 7762, "rv.5.title": "\u5143\u9996\u75db\u7f75\u865b\u6df5 (\u9b54\u6cd5\u5c11\u5973\u307e\u3069\u304b\u7b2c\u4e09\u96c6) 2011\/1\/21", "rv.6.rating": "", "vq": "auto", "rv.1.title": "\uff08\uffe3\uff13\uffe3\uff09\u306e\u624b\u66f8\u304d\u3067\u9b54\u6cd5\u5c11\u5973\u307e\u3069\u304b\u2606\u30de\u30ae\u30ab\uff2f\uff30\u3010\u30c8\u30ec\u30fc\u30b9\u3011\u3010\u6bd4\u8f03\u3011", "rv.7.view_count": 33606, "rv.3.length_seconds": 92, "rv.5.author": "ben00216"}, "url_v9as2": "http:\/\/s.ytimg.com\/yt\/swfbin\/watch-vflLhLv7L.swf", "params": {"allowscriptaccess": "always", "wmode": "direct", "bgcolor": "#000000", "allowfullscreen": "true"}, "attrs": {"width": "640", "id": "movie_player", "height": "390"}, "url_v8": "http:\/\/s.ytimg.com\/yt\/swfbin\/watch_v8-vflJBjw-5.swf"};
Modified: trunk/libwww-youtube-download-perl/t/01_simple.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-youtube-download-perl/t/01_simple.t?rev=75688&op=diff
==============================================================================
--- trunk/libwww-youtube-download-perl/t/01_simple.t (original)
+++ trunk/libwww-youtube-download-perl/t/01_simple.t Tue Jun 14 13:35:23 2011
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More tests => 3;
+use Test::More tests => 9;
use WWW::YouTube::Download;
do {
@@ -26,7 +26,7 @@
ok my $data = $client->prepare_download($video_id);
is_deeply $data, +{
'video_id' => $video_id,
- 'fmt_lsit' => [ '34', '18', '5' ],
+ 'fmt_list' => [ '34', '18', '5' ],
'suffix' => '.flv',
'title' => 'ã®æ‰‹æ›¸ãã§é”法少女ã¾ã©ã‹â˜†ãƒžã‚®ã‚«ï¼¯ï¼°.mp4',
'fmt' => '34',
@@ -53,6 +53,13 @@
},
};
+is $client->get_video_id($video_id), $video_id;
+is $client->get_video_url($video_id), 'http://v9.lscache1.c.youtube.com/videoplayback?sparams=id%2Cexpire%2Cip%2Cipbits%2Citag%2Calgorithm%2Cburst%2Cfactor%2Coc%3AU0dYTlFUUV9FSkNNOF9JTlVD&algorithm=throttle-factor&itag=34&ipbits=0&burst=40&sver=3&signature=4D216F61C63A1B9DDDD3A837F3EFFCBCDA06297B.ABC59F7AAB4A47CC938CB6833A014701666234CA&expire=1299193200&key=yt1&ip=0.0.0.0&factor=1.25&id=48334a2162ac9611';
+is $client->get_title($video_id), 'ã®æ‰‹æ›¸ãã§é”法少女ã¾ã©ã‹â˜†ãƒžã‚®ã‚«ï¼¯ï¼°.mp4';
+is $client->get_fmt($video_id), '34';
+is_deeply $client->get_fmt_list($video_id), ['34', '18', '5'];
+is $client->get_suffix($video_id), '.flv';
+
done_testing;
__END__
More information about the Pkg-perl-cvs-commits
mailing list