The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl

use strict;
use Cwd;
use FindBin;
use lib Cwd::abs_path "$FindBin::Bin/../lib";
use File::Share;
use Hash::Merge 'merge';
use IO::All;
use Template::Toolkit::Simple;
use YAML::XS;
use Zilla::Dist;

my $meta = Load io->file('Meta')->all;
my $cpan = delete($meta->{'=cpan'}) || {};
my $data = merge($cpan, $meta);
($data->{namepath} = $meta->{name}) =~ s/-/\//g;
$data->{sharedir} = 1 if -d 'share';

print tt
    ->path([File::Share::dist_dir('Zilla-Dist')])
    ->data($data)
    ->render('dist.ini');