Show
Ignore:
Timestamp:
09/18/07 17:33:05 (6 years ago)
Author:
otsune
Message:

import Ustreamer(broken XXX version)
dotfiles/vimperator/ : import otsune's ~/.vimperator

Location:
lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2
Files:
22 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/Build.PL

    r176 r202  
    44use strict; 
    55use warnings; 
    6 our $VERSION = eval { require version; version::qv('1.0.2') }; 
     6our $VERSION = eval { require version; version::qv('1.0.1') }; 
    77 
    88do 'Makefile.PL'; 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/Changes

    r176 r202  
    22Revision history for WebService-YouTube 
    33======================================= 
    4  
    5 1.0.2   2007-09-15 
    6     - Fixed W::Y::Util#get_video_uri. 
    74 
    851.0.1   2007-04-09 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/META.yml

    r176 r202  
    1 --- 
     1---  
     2abstract: Perl interfece to YouTube 
     3author: Hironori Yoshida <yoshida@cpan.org> 
     4distribution_type: module 
     5generated_by: Module::Install version 0.65 
     6license: perl 
     7meta-spec:  
     8  url: http://module-build.sourceforge.net/META-spec-v1.3.html 
     9  version: 1.3 
    210name: WebService-YouTube 
    3 version: 1.0.2 
    4 author: 
    5   - 'Hironori Yoshida <yoshida@cpan.org>' 
    6 abstract: Perl interfece to YouTube 
    7 license: perl 
    8 resources: 
    9   license: http://dev.perl.org/licenses/ 
    10 requires: 
     11no_index:  
     12  directory:  
     13    - inc 
     14    - t 
     15requires:  
    1116  Class::Accessor::Fast: 0 
    12   Encode: 0 
    1317  HTTP::Date: 0 
    1418  LWP::UserAgent: 0 
    1519  URI::Escape: 0 
    1620  XML::Simple: 0 
     21  perl: 5.6.0 
    1722  version: 0 
    18 provides: 
    19   WebService::YouTube: 
    20     file: lib/WebService/YouTube.pm 
    21     version: 1.0.2 
    22   WebService::YouTube::Feeds: 
    23     file: lib/WebService/YouTube/Feeds.pm 
    24     version: 1.0.2 
    25   WebService::YouTube::User: 
    26     file: lib/WebService/YouTube/User.pm 
    27     version: 1.0.2 
    28   WebService::YouTube::Util: 
    29     file: lib/WebService/YouTube/Util.pm 
    30     version: 1.0.2 
    31   WebService::YouTube::Video: 
    32     file: lib/WebService/YouTube/Video.pm 
    33     version: 1.0.2 
    34   WebService::YouTube::Videos: 
    35     file: lib/WebService/YouTube/Videos.pm 
    36     version: 1.0.2 
    37 generated_by: Module::Build version 0.2808 
    38 meta-spec: 
    39   url: http://module-build.sourceforge.net/META-spec-v1.2.html 
    40   version: 1.2 
     23version: 1.0.1 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/Makefile.PL

    r176 r202  
    44use strict; 
    55use warnings; 
    6 our $VERSION = eval { require version; version::qv('1.0.2') }; 
     6our $VERSION = eval { require version; version::qv('1.0.1') }; 
    77 
    88use inc::Module::Install; 
    … …  
    1919requires 'version'; 
    2020requires 'Class::Accessor::Fast'; 
    21 requires 'Encode'; 
    2221requires 'HTTP::Date'; 
    2322requires 'LWP::UserAgent'; 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/examples/recently_added.pl

    r177 r202  
    66use strict; 
    77use warnings; 
    8 use version; our $VERSION = qv('1.0.2'); 
     8use version; our $VERSION = qv('1.0.1'); 
    99 
    1010use blib; 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/lib/WebService/YouTube.pm

    r177 r202  
    55use strict; 
    66use warnings; 
    7 use version; our $VERSION = qv('1.0.2'); 
     7use version; our $VERSION = qv('1.0.1'); 
    88 
    99use base qw(Class::Accessor::Fast); 
    … …  
    3939=head1 VERSION 
    4040 
    41 This document describes WebService::YouTube version 1.0.2 
     41This document describes WebService::YouTube version 1.0.1 
    4242 
    4343=head1 SYNOPSIS 
    … …  
    5757This is a Perl interface to YouTube API and RSS. 
    5858See Developers Page L<http://youtube.com/dev> and About RSS L<http://www.youtube.com/rssls> for details. 
    59  
    60 B<I<This module support only Legacy API, does not support YouTube Data API based on Google data protocol.>> 
    61 See YouTube Data API Overview L<http://code.google.com/apis/youtube/overview.html> for details. 
    6259 
    6360=head1 SUBROUTINES/METHODS 
    … …  
    118115=head1 LICENSE AND COPYRIGHT 
    119116 
     117Copyright (c) 2006, Hironori Yoshida <yoshida@cpan.org>. All rights reserved. 
     118 
    120119This module is free software; you can redistribute it and/or 
    121120modify it under the same terms as Perl itself. See L<perlartistic>. 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/lib/WebService/YouTube/Feeds.pm

    r177 r202  
    55use strict; 
    66use warnings; 
    7 use version; our $VERSION = qv('1.0.2'); 
     7use version; our $VERSION = qv('1.0.1'); 
    88 
    99use Carp; 
    … …  
    4444 
    4545sub new { 
    46     my ( $class, @args ) = @_; 
    47  
    48     my $self = $class->SUPER::new(@args); 
     46    my $class = shift; 
     47 
     48    my $self = $class->SUPER::new(@_); 
    4949    if ( !$self->ua ) { 
    5050        $self->ua( LWP::UserAgent->new ); 
    … …  
    177177=head1 VERSION 
    178178 
    179 This document describes WebService::YouTube::Feeds version 1.0.2 
     179This document describes WebService::YouTube::Feeds version 1.0.1 
    180180 
    181181=head1 SYNOPSIS 
    … …  
    333333=head1 LICENSE AND COPYRIGHT 
    334334 
    335 This module is free software; you can redistribute it and/or 
    336 modify it under the same terms as Perl itself. See L<perlartistic>. 
     335Copyright 2006, Hironori Yoshida <yoshida@cpan.org>. All rights reserved. 
     336 
     337This program is free software; you can redistribute it and/or modify it 
     338under the same terms as Perl itself. See L<perlartistic>. 
    337339 
    338340=cut 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/lib/WebService/YouTube/User.pm

    r177 r202  
    55use strict; 
    66use warnings; 
    7 use version; our $VERSION = qv('1.0.2'); 
     7use version; our $VERSION = qv('1.0.1'); 
    88 
    99use base qw(Class::Accessor::Fast); 
    … …  
    4848=head1 VERSION 
    4949 
    50 This document describes WebService::YouTube::User version 1.0.2 
     50This document describes WebService::YouTube::User version 1.0.1 
    5151 
    5252=head1 SYNOPSIS 
    … …  
    152152=head1 LICENSE AND COPYRIGHT 
    153153 
    154 This module is free software; you can redistribute it and/or 
    155 modify it under the same terms as Perl itself. See L<perlartistic>. 
     154Copyright 2006, Hironori Yoshida <yoshida@cpan.org>. All rights reserved. 
     155 
     156This program is free software; you can redistribute it and/or modify it 
     157under the same terms as Perl itself. See L<perlartistic>. 
    156158 
    157159=cut 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/lib/WebService/YouTube/Util.pm

    r177 r202  
    55use strict; 
    66use warnings; 
    7 use version; our $VERSION = qv('1.0.2'); 
     7use version; our $VERSION = qv('1.0.1'); 
    88 
    99use Carp; 
    … …  
    123123=head1 VERSION 
    124124 
    125 This document describes WebService::YouTube::Util version 1.0.2 
     125This document describes WebService::YouTube::Util version 1.0.1 
    126126 
    127127=head1 SYNOPSIS 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/lib/WebService/YouTube/Video.pm

    r177 r202  
    55use strict; 
    66use warnings; 
    7 use version; our $VERSION = qv('1.0.2'); 
     7use version; our $VERSION = qv('1.0.1'); 
    88 
    99use base qw(Class::Accessor::Fast); 
    … …  
    4343=head1 VERSION 
    4444 
    45 This document describes WebService::YouTube::Video version 1.0.2 
     45This document describes WebService::YouTube::Video version 1.0.1 
    4646 
    4747=head1 SYNOPSIS 
    … …  
    125125=head1 LICENSE AND COPYRIGHT 
    126126 
    127 This module is free software; you can redistribute it and/or 
    128 modify it under the same terms as Perl itself. See L<perlartistic>. 
     127Copyright 2006, Hironori Yoshida <yoshida@cpan.org>. All rights reserved. 
     128 
     129This program is free software; you can redistribute it and/or modify it 
     130under the same terms as Perl itself. See L<perlartistic>. 
    129131 
    130132=cut 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/lib/WebService/YouTube/Videos.pm

    r177 r202  
    55use strict; 
    66use warnings; 
    7 use version; our $VERSION = qv('1.0.2'); 
     7use version; our $VERSION = qv('1.0.1'); 
    88 
    99use Carp; 
    … …  
    1818 
    1919sub new { 
    20     my ( $class, @args ) = @_; 
    21  
    22     my $self = $class->SUPER::new(@args); 
     20    my $class = shift; 
     21 
     22    my $self = $class->SUPER::new(@_); 
    2323    if ( !$self->dev_id ) { 
    2424        croak 'dev_id is required'; 
    … …  
    140140    my $self = shift; 
    141141 
    142     my $uri = WebService::YouTube::Util->rest_uri( $self->dev_id, 
     142    my $uri = 
     143      WebService::YouTube::Util->rest_uri( $self->dev_id, 
    143144        'youtube.videos.list_featured' ); 
    144145    my $res = $self->ua->get($uri); 
    … …  
    160161=head1 VERSION 
    161162 
    162 This document describes WebService::YouTube::Videos version 1.0.2 
     163This document describes WebService::YouTube::Videos version 1.0.1 
    163164 
    164165=head1 SYNOPSIS 
    … …  
    299300=head1 LICENSE AND COPYRIGHT 
    300301 
    301 This module is free software; you can redistribute it and/or 
    302 modify it under the same terms as Perl itself. See L<perlartistic>. 
     302Copyright 2006, Hironori Yoshida <yoshida@cpan.org>. All rights reserved. 
     303 
     304This program is free software; you can redistribute it and/or modify it 
     305under the same terms as Perl itself. See L<perlartistic>. 
    303306 
    304307=cut 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/t/00load.t

    r177 r202  
    55use strict; 
    66use warnings; 
    7 use version; our $VERSION = qv('1.0.2'); 
     7use version; our $VERSION = qv('1.0.1'); 
    88 
    99use blib; 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/t/01perlcritic.t

    r177 r202  
    55use strict; 
    66use warnings; 
    7 use version; our $VERSION = qv('1.0.2'); 
     7use version; our $VERSION = qv('1.0.1'); 
    88 
    99use English qw(-no_match_vars); 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/t/02pod.t

    r177 r202  
    55use strict; 
    66use warnings; 
    7 use version; our $VERSION = qv('1.0.2'); 
     7use version; our $VERSION = qv('1.0.1'); 
    88 
    99use English qw(-no_match_vars); 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/t/03pod-coverage.t

    r177 r202  
    55use strict; 
    66use warnings; 
    7 use version; our $VERSION = qv('1.0.2'); 
     7use version; our $VERSION = qv('1.0.1'); 
    88 
    99use blib; 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/t/04kwalitee.t

    r177 r202  
    55use strict; 
    66use warnings; 
    7 use version; our $VERSION = qv('1.0.2'); 
     7use version; our $VERSION = qv('1.0.1'); 
    88 
    99use English qw(-no_match_vars); 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/t/WebService-YouTube-Feeds.t

    r177 r202  
    55use strict; 
    66use warnings; 
    7 use version; our $VERSION = qv('1.0.2'); 
     7use version; our $VERSION = qv('1.0.1'); 
    88 
    99use blib; 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/t/WebService-YouTube-User.t

    r177 r202  
    55use strict; 
    66use warnings; 
    7 use version; our $VERSION = qv('1.0.2'); 
     7use version; our $VERSION = qv('1.0.1'); 
    88 
    99use blib; 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/t/WebService-YouTube-Util.t

    r177 r202  
    55use strict; 
    66use warnings; 
    7 use version; our $VERSION = qv('1.0.2'); 
     7use version; our $VERSION = qv('1.0.1'); 
    88 
    99use blib; 
    … …  
    3535SKIP: { 
    3636    if ( !$ENV{TEST_YOUTUBE} ) { 
    37         skip 'set TEST_YOUTUBE for testing WebService::YouTube::Util', 1; 
     37        skip 'set TEST_YOUTUBE for testing WebService::YouTube::Videos', 1; 
    3838    } 
    3939    ok( WebService::YouTube::Util->get_video_uri('rdwz7QiG0lk'), 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/t/WebService-YouTube-Video.t

    r177 r202  
    55use strict; 
    66use warnings; 
    7 use version; our $VERSION = qv('1.0.2'); 
     7use version; our $VERSION = qv('1.0.1'); 
    88 
    99use blib; 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/t/WebService-YouTube-Videos.t

    r177 r202  
    55use strict; 
    66use warnings; 
    7 use version; our $VERSION = qv('1.0.2'); 
     7use version; our $VERSION = qv('1.0.1'); 
    88 
    99use blib; 

  • lang/perl/WebService-YouTube/tags/WebService-YouTube-1.0.2/t/WebService-YouTube.t

    r177 r202  
    55use strict; 
    66use warnings; 
    7 use version; our $VERSION = qv('1.0.2'); 
     7use version; our $VERSION = qv('1.0.1'); 
    88 
    99use blib;