diff options
Diffstat (limited to 'lib/Locale/POFileManager/File.pm')
-rw-r--r-- | lib/Locale/POFileManager/File.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/Locale/POFileManager/File.pm b/lib/Locale/POFileManager/File.pm index b3aa78b..64cb60c 100644 --- a/lib/Locale/POFileManager/File.pm +++ b/lib/Locale/POFileManager/File.pm @@ -38,6 +38,13 @@ sub save { Locale::PO->save_file_fromarray($self->file->stringify, [$self->entries]); } +sub language { + my $self = shift; + my $language = $self->file->basename; + $language =~ s{(.*)\.po$}{$1}; + return $language; +} + sub find_missing_from { my $self = shift; my ($other) = @_; |