#!/usr/bin/env perl
use strict;
use warnings;
use Data::Password::zxcvbn::AuthorTools::BuildRankedDictionaries;

# script to generate RankedDictionaries/{{(split /-/,$dist->name)[-1]}}.pm

# usage:
# perl maint/build-ranked-dictionaries

Data::Password::zxcvbn::AuthorTools::BuildRankedDictionaries->new({
    dictionaries_word_count => {
        # maps dict name to num words. a 0 value means "include all words"
        FIXME,
        {{lc +(split /-/,$dist->name)[-1]}}_wikipedia => 30000,
        {{lc +(split /-/,$dist->name)[-1]}}_names => 0,
        {{lc +(split /-/,$dist->name)[-1]}}_surnames => 0,
    },
    package_name => 'Data::Password::zxcvbn::RankedDictionaries::{{(split /-/,$dist->name)[-1]}}',
    package_description  => <<'EOF',
This is a data file used by L<<
C<Data::Password::zxcvbn::Match::Dictionary> >>, and is generated by
the L<<
C<build-ranked-dictionaries>|FIXME
>> program when building the distribution.
EOF
})->generate;
