The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

WWW::Deezer - Perl interface to Deezer API

SYNOPSIS

  use WWW::Deezer;
  
  my $deezer = WWW::Deezer->new();
  my $rs1 = $deezer->search ('Spinal Tap');
  my $rs2 = $deezer->search ({ q => 'Antonio Vivaldi Concerto No. 4', order => 'RATING_DESC' });
  my $rs3 = $deezer->search ({ q => { artist => 'Metallica', album => 'Garage Inc.' } });

  while (my $record = $rs1->next) {
      $album_obj = $record->album;
      $artist = $record->artist;
      $name = $artist->name;

      warn ("$name has a radio channel!") if $artist->radio;

      $fans_count = $artist->nb_fan;
  }

  my $top_record = $rs2->first;
  warn $top_record->id;

DESCRIPTION

Module allows to interact with Deezer server via it's official API. Description to be added soon.

EXPORT

None by default.

SEE ALSO

Oficial Deezer API documentation: http://developers.deezer.com/api

AUTHOR

Michael Katasonov, <kabanoid@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2013 by Mike Katasonov

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.14.2 or, at your option, any later version of Perl 5 you may have available.