11 sub read_default_columns {
12 my $content = read_file('SL/DB/MetaSetup/Default.pm');
13 my ($columns) = $content =~ m{\n__PACKAGE__->meta->columns\((.+?)\n\)}s;
14 $columns =~ s/=>.*?\},|\n//g;
16 $columns =~ s/^\s+|\s+$//g;
18 return map { ($_ => 1) } split m/ +/, $columns;
21 sub test_file_content {
23 my $content = read_file($file);
25 while ($content =~ m{(?:INSTANCE_CONF\.|\$(?:main)?::instance_conf->)get_([a-z0-9_]+)}gi) {
26 ok($default_columns{$1}, "'get_${1}' is a valid method call on \$::instance_conf in $file");
30 %default_columns = read_default_columns();
31 my @files = glob('*.pl');
32 find(sub { push(@files, $File::Find::name) if $_ =~ /\.pm$/; }, 'SL');
33 find(sub { push(@files, $File::Find::name) if $_ =~ /\.pl$/; }, qw(bin/mozilla sql/Pg-upgrade2 scripts));
34 find(sub { push(@files, $File::Find::name) if $_ =~ /\.html$/; }, 'templates/webpages');
36 test_file_content($_) for @files;