gen_settings.pl

#!/usr/bin/perl
# Copyright (C) 2008, The Perl Foundation.
# $Id$

use strict;
use warnings;

my @files = @ARGV;

print <<"END_SETTING";

# This file automatically generated by $0.

END_SETTING

my %classnames;
foreach my $file (@files) {
    print "# From $file\n\n";
    open(my $fh, "<",  $file) or die $!;
    local $/;
    my $x = <$fh>;
    close $fh;
    print $x;
}

print "\n# vim: set ft=perl6 nomodifiable :\n";