add a language_file method to get a specific language file

1 files changed, 7 insertions, 2 deletions

diff --git a/lib/Locale/POFileManager.pm b/lib/Locale/POFileManager.pm
index ea906c1..4665723 100644
--- a/lib/Locale/POFileManager.pm
+++ b/lib/Locale/POFileManager.pm
@@ -126,15 +126,20 @@ sub add_language {
     $self->_add_file($pofile);
 }
 
-sub canonical_language_file {
+sub language_file {
     my $self = shift;
-    my $lang = $self->canonical_language;
+    my ($lang) = @_;
 
     return $self->first_file(sub {
         $_->language eq $lang;
     });
 }
 
+sub canonical_language_file {
+    my $self = shift;
+    return $self->language_file($self->canonical_language);
+}
+
 sub find_missing {
     my $self = shift;
     my $canon_file = $self->canonical_language_file;