Locale::TextDomain::OO::Lexicon::Role::StoreFilter - Filters the lexicon data before stored
$Id: StoreFilter.pm 573 2015-02-07 20:59:51Z steffenw $
$HeadURL: svn+ssh://steffenw@svn.code.sf.net/p/perl-gettext-oo/code/module/trunk/lib/Locale/TextDomain/OO/Lexicon/Role/StoreFilter.pm $
1.017
This module filters the lexicon data before stored.
The idea is: Not all parts of lexicon are used by other programming languages.
Implements attributes "filter_language", "filter_category", "filter_domain" and "filter_project". There it is possible to store undef for ignore filter, a string to check equal, a regex reference to match or a code reference to do some more complicate things.
That filter removes also the key "plural_code" from header. That is an already prepared Perl code reference to calculate what plural form should used. The other language has to create the code again from key header key "plural". That contains that pseudo code from po/mo file without ; and/or \n at the end.
;
\n
with qw( Locale::TextDomain::OO::Lexicon::Role::StoreFilter );
Usage of that optional filter
use Locale::TextDomain::OO::Lexicon::Store...; my $obj = Locale::TextDomain::OO::Lexicon::Store...->new( ... # all parameters optional filter_language => undef, filter_category => 'cat1', filter_domain => qr{ \A dom }xms, filter_project => sub { my $filter_name = shift; # $filter_name eq 'filter_project' return $_ eq 'my project'; # $_ contains the value }, ); $obj->copy; $obj->clear_filter; $obj->filter_language('en'); $obj->remove; $obj->to_...;
Set a filter as undef, string, regex or code reference.
Set filter_language, filter_category, filter_domain, filter_project to undef.
$obj->clear_filter;
Copies lexicon entries with matching filter from singleton lexicon to data (new lexicon).
$obj->copy;
Removes lexicon entries with matching filter from data (new lexicon).
$obj->remove;
Get back that filtered lexicon data.
$data = $obj->data;
Inside of this distribution is a directory named example. Run this *.pl files.
none
Carp
Clone
Locale::TextDomain::OO::Singleton::Lexicon
Locale::TextDomain::OO::Util::JoinSplitLexiconKeys
Moo::Role
MooX::Types::MooseLike::Base
namespace::autoclean
not known
Locale::TextDoamin::OO
Steffen Winkler
Copyright (c) 2013 - 2015, Steffen Winkler <steffenw at cpan.org>. All rights reserved.
<steffenw at cpan.org>
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Locale::TextDomain::OO, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Locale::TextDomain::OO
CPAN shell
perl -MCPAN -e shell install Locale::TextDomain::OO
For more information on module installation, please visit the detailed CPAN module installation guide.