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

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

# usage:
# perl maint/build-keyboard-adjacency-graphs

Data::Password::zxcvbn::AuthorTools::BuildAdjacencyGraphs->new({
    layouts => [
        FIXME
    ],
    package_name => 'Data::Password::zxcvbn::AdjacencyGraph::{{(split /-/,$dist->name)[-1]}}',
    package_abstract => 'adjacency graphs for common {{(split /-/,$dist->name)[-1]}} keyboards',
    package_description => <<'EOF',
This is a data file used by L<<
C<Data::Password::zxcvbn::Match::Spatial> >>, and is generated by the
L<<
C<build-keyboard-adjacency-graphs>|FIXME
>> program when building the distribution.
EOF
})->generate;
