use Test::Differences;
use Pod::Usage ();
use Getopt::Long ();
+use File::Basename qw(fileparse);
=head1 NAME
my $from_data = LoadFile($from);
my $to_data = LoadFile($to);
-my $from_parsed = { iterate($from_data->{basename($from)}) };
-my $to_parsed = { iterate($to_data->{basename($to)}) };
+my $from_parsed = { iterate($from_data->{fileparse($from, qr/\.[^.]*/)}) };
+my $to_parsed = { iterate($to_data->{fileparse($to, qr/\.[^.]*/)}) };
if ($keys)
{
# Prune according to blacklist
if ($untranslated_values) {
- @untranslated = prune_untranslated_with_blacklist(basename($to), @untranslated);
+ @untranslated = prune_untranslated_with_blacklist(scalar(fileparse($to, qr/\.[^.]*/)), @untranslated);
}
say for @untranslated;
return @ret;
}
-sub basename
-{
- my $name = shift;
- $name =~ s[\..*?$][];
- $name;
-}
-
sub help
{
my %arg = @_;
site.index.license.project_url: true
browse.relation_member.entry: true
+ # #{{id}}
+ changeset.changeset.id: true
+
de:
activerecord.attributes.message.sender: true
activerecord.attributes.trace.name: true
# {{name}} ({{id}})
printable_name.with_name: true
+
+ # {{type}}
+ geocoder.search_osm_namefinder.prefix: true
+
+ # {{suffix}}, {{parentname}}
+ geocoder.search_osm_namefinder.suffix_suburb: true