Sample of WebService::DMM

output.log

 1: 桜木凛の誘惑オフィス
 2: 家庭教師は女子大生 桜木凛
 3: 桜木凛の手コキ・淫語・エステティシャン
 4: 同級生 桜木凛
 5: 桜木凛、セル解禁。
 6: 桜木凛のハレンチ・アナウンサー
 7: 空中レロレロ 超S級単体女優のエアキッス2
 8: プレミアム5周年記念特別作品 THE PREMIUM V.I.P
 9: 桜木凛の上目使いフェラ天国
10: PREMIUM STYLISH SOAP 桜木凛
11: 桜木凛が100％彼女目線でアナタとHな同棲生活。
12: 桜木凛がサポート アナタのオナニータイム 桜木凛
13: 桜木凛の手コキ・淫語・誘惑痴女
14: 桜木凛グラマラス6本番スーパーラグジュアリー
15: ノーパン女教師 桜木凛
16: 愛玩ご奉仕メイド 桜木凛
17: 初花-hatsuhana- 桜木凛
18: 夫の目の前で犯されて- 狂いだした歯車 桜木凛
19: 合コンの王様 売れっ子単体女優のみなさんと合コン＆即SEX
20: 恋人映像 桜木凛

webservice_dmm_sample.pl

#!/usr/bin/env perl
use strict;
use warnings;

use lib ('../lib');
use WebService::DMM;
use Config::Pit;
use utf8;

binmode STDOUT, ":utf8";

my $config = pit_get('dmm.co.jp', require => {
    affiliate_id => 'DMM affiliate ID',
    api_id       => 'DMM API ID',
});

my $dmm = WebService::DMM->new(
    affiliate_id => $config->{affiliate_id},
    api_id       => $config->{api_id},
);

my @items = $dmm->search(
    site    => 'DMM.co.jp',
    service => 'digital',
    floor   => 'videoa',
    sort    => 'review',
    keyword => '桜木凛',
);

my $rank = 1;
for my $item (@items) {
    printf "%2d: %s\n", $rank, $item->title;
    $rank++;
}