use Class::Factory::Util;
for ( Lingua::Identify->subclasses() ) {
  /^[A-Z][A-Z]$/ || next;
  eval "require Lingua::Identify::$_ ;";
  $languages{_versions}{lc $_} >= 0.01 ||
    die "Required version of language $_ not found.\n";
}