#!/usr/bin/env perl
my %found;

while( <> )
{	$found{$_}++ for m!\b(__[a-z]+|__"|error|warning|alert|fault|mistake|notice|info|try{|panic|trace|textdomain|report)\b!g;
}

print ", import => [ qw/", join(' ', sort keys %found) , "/ ];";
