centralize the filename => lang mapping, and use it in more places

1 files changed, 3 insertions, 4 deletions

diff --git a/lib/Locale/POFileManager.pm b/lib/Locale/POFileManager.pm
index 5924754..87c01ae 100644
--- a/lib/Locale/POFileManager.pm
+++ b/lib/Locale/POFileManager.pm
@@ -68,8 +68,7 @@ sub has_language {
     my ($lang) = @_;
 
     for my $file ($self->files) {
-        $file->stringify =~ m{.*/(.*)\.po};
-        return 1 if $1 eq $lang;
+        return 1 if $file->language eq $lang;
     }
 
     return;
@@ -96,7 +95,7 @@ sub canonical_language_file {
     my $lang = $self->canonical_language;
 
     return $self->first_file(sub {
-        $_->file->stringify =~ /\Q$lang\E\.po$/;
+        $_->file->language eq $lang;
     });
 }
 
@@ -106,7 +105,7 @@ sub find_missing {
 
     my %ret;
     for my $file ($self->files) {
-        $ret{$file->file->stringify} = $file->find_missing_from($canon_file);
+        $ret{$file->language} = $file->find_missing_from($canon_file);
     }
 
     return %ret;