#!/usr/local/bin/perl -w
###########################################
# youtube-viewcounts
# Mike Schilli, 2014 (m@perlmeister.com)
###########################################
use strict;
use WebService::GData::YouTube qw();
use YAML qw( LoadFile );
use JSON qw( to_json );

my @result = ();
my $videos = 
  LoadFile( "youtube-watch.yml" );
my $yt = WebService::GData::YouTube->new();

for my $video ( @$videos ) {

  my $meta = 
    $yt->get_video_by_id( $video->{ id } );

  $video->{ count } = $meta->{ _feed }->
    { 'yt$statistics' }->{ viewCount };

  push @result, $video;
}

print to_json( \@result, 
    { pretty => 1, canonical => 1 } );