Changeset 176

Show
Ignore:
Timestamp:
09/15/07 17:33:36 (16 months ago)
Author:
holidays-l
Message:

version up

Location:
lang/perl/WebService-YouTube/trunk
Files:
23 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/WebService-YouTube/trunk

    • Property svn:ignore

      •  

        old new  
        55inc 
        66Makefile 
         7Makefile.old 
        78MANIFEST 
         9MANIFEST.bak 
        810META.yml 
        911pm_to_blib 
        10 WebService-YouTube-v* 
         12WebService-YouTube-*.tar.* 

  • lang/perl/WebService-YouTube/trunk/Build.PL

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

  • lang/perl/WebService-YouTube/trunk/Changes

    r109 r176  
    22Revision history for WebService-YouTube 
    33======================================= 
     4 
     51.0.2   2007-09-15 
     6    - Fixed W::Y::Util#get_video_uri. 
    47 
    581.0.1   2007-04-09 

  • lang/perl/WebService-YouTube/trunk/META.yml

    r109 r176  
    1 ---  
     1--- 
     2name: WebService-YouTube 
     3version: 1.0.2 
     4author: 
     5  - 'Hironori Yoshida <yoshida@cpan.org>' 
    26abstract: Perl interfece to YouTube 
    3 author: Hironori Yoshida <yoshida@cpan.org> 
    4 distribution_type: module 
    5 generated_by: Module::Install version 0.65 
    67license: perl 
    7 meta-spec:  
    8   url: http://module-build.sourceforge.net/META-spec-v1.3.html 
    9   version: 1.3 
    10 name: WebService-YouTube 
    11 no_index:  
    12   directory:  
    13     - inc 
    14     - t 
    15 requires:  
     8resources: 
     9  license: http://dev.perl.org/licenses/ 
     10requires: 
    1611  Class::Accessor::Fast: 0 
     12  Encode: 0 
    1713  HTTP::Date: 0 
    1814  LWP::UserAgent: 0 
    1915  URI::Escape: 0 
    2016  XML::Simple: 0 
    21   perl: 5.6.0 
    2217  version: 0 
    23 version: 1.0.1 
     18provides: 
     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 
     37generated_by: Module::Build version 0.2808 
     38meta-spec: 
     39  url: http://module-build.sourceforge.net/META-spec-v1.2.html 
     40  version: 1.2 

  • lang/perl/WebService-YouTube/trunk/Makefile.PL

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

  • lang/perl/WebService-YouTube/trunk/examples/recently_added.pl

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

  • lang/perl/WebService-YouTube/trunk/lib/WebService/YouTube.pm

    r109 r176  
    55use strict; 
    66use warnings; 
    7 use version; our $VERSION = qv('1.0.1'); 
     7use version; our $VERSION = qv('1.0.2'); 
    88 
    99use base qw(Class::Accessor::Fast); 
    … …  
    3939=head1 VERSION 
    4040 
    41 This document describes WebService::YouTube version 1.0.1 
     41This document describes WebService::YouTube version 1.0.2 
    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 
     60B<I<This module support only Legacy API, does not support YouTube Data API based on Google data protocol.>> 
     61See YouTube Data API Overview L<http://code.google.com/apis/youtube/overview.html> for details. 
    5962 
    6063=head1 SUBROUTINES/METHODS 
    … …  
    115118=head1 LICENSE AND COPYRIGHT 
    116119 
    117 Copyright (c) 2006, Hironori Yoshida <yoshida@cpan.org>. All rights reserved. 
    118  
    119120This module is free software; you can redistribute it and/or 
    120121modify it under the same terms as Perl itself. See L<perlartistic>. 

  • lang/perl/WebService-YouTube/trunk/lib/WebService/YouTube/Feeds.pm

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

  • lang/perl/WebService-YouTube/trunk/lib/WebService/YouTube/User.pm

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

  • lang/perl/WebService-YouTube/trunk/lib/WebService/YouTube/Util.pm

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

  • lang/perl/WebService-YouTube/trunk/lib/WebService/YouTube/Video.pm

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

  • lang/perl/WebService-YouTube/trunk/lib/WebService/YouTube/Videos.pm

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

  • lang/perl/WebService-YouTube/trunk/t/00load.t

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

  • lang/perl/WebService-YouTube/trunk/t/01perlcritic.t

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

  • lang/perl/WebService-YouTube/trunk/t/02pod.t

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

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

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

  • lang/perl/WebService-YouTube/trunk/t/04kwalitee.t

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

  • lang/perl/WebService-YouTube/trunk/t/WebService-YouTube-Feeds.t

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

  • lang/perl/WebService-YouTube/trunk/t/WebService-YouTube-User.t

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

  • lang/perl/WebService-YouTube/trunk/t/WebService-YouTube-Util.t

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

  • lang/perl/WebService-YouTube/trunk/t/WebService-YouTube-Video.t

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

  • lang/perl/WebService-YouTube/trunk/t/WebService-YouTube-Videos.t

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

  • lang/perl/WebService-YouTube/trunk/t/WebService-YouTube.t

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