gistfile1.pl

package Net::MusixMatch;
use Moose;
use Net::API::Abstract;
extends 'Net::API::Abstract';

set_domain 'http://api.musixmatch.com/ws/1.1/';
using Simple::Auth;
using JSON parser;

api_method 'track' => (
    path     => 'track.get',
    params   => [ qw/ track_id track_mbid format / ],
    required => [ qw/ track_id / ]
);

package main;

my $client = API::Client::MusixMatch->new(
    apikey => '...'
);

my $track = $client->track( track_id => 12345 );