# Pastebin B9JV5YIl
my $ws_defs = Data::OptList::mkopt([
     area => {
                         method   => 'GET',
                         required => [ qw(query) ],
                         optional => [ qw(fmt limit offset) ],
     },
     area => {
                         method   => 'GET',
                         linked   => [ qw(collection) ],
                         inc      => [ qw(aliases annotation
                                          _relations tags user-tags genres user-genres ratings user-ratings) ],
                         optional => [ qw(fmt limit offset) ],
     },
     area => {
                         method   => 'GET',
                         inc      => [ qw(aliases annotation
                                          _relations tags user-tags genres user-genres ratings user-ratings) ],
                         optional => [ qw(fmt limit offset) ],
     },
     area => {
                         action   => '/ws/2/area/lookup',
                         method   => 'GET',
                         inc      => [ qw(aliases annotation
                                          _relations tags user-tags genres user-genres ratings user-ratings) ],
                         optional => [ qw(fmt) ],
     }
]);