a snippet from Net::MusixMatch implementation

gistfile1.pl

sub get_track {
    my $self = shift;
    my %params = @_;

    return unless $params{ track_id }
               || $params{ track_mbid }
               || $params{ track_echonest_id };

    my $result = $self->_call_api( 'track.get', %params );

    my $track = Net::MusixMatch::Track->new(
        $result->{ message }->{ body }->{ track }
    );
    return $track;
}