File Coverage

blib/lib/File/Findgrep/I18N.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package File::Findgrep::I18N;
  # This is the project base class for "findgrep", an example application
  # using Locale::Maketext;

use Locale::Maketext 1.01;
use base ('Locale::Maketext');

# I decree that this project's first language is English.

%Lexicon = (
  '_AUTO' => 1,
  # That means that lookup failures can't happen -- if we get as far
  #  as looking for something in this lexicon, and we don't find it,
  #  then automagically set $Lexicon{$key} = $key, before possibly
  #  compiling it.

  # The exception is keys that start with "_" -- they aren't auto-makeable.



  '_USAGE_MESSAGE' =>
   # an example of a phrase whose key isn't meant to ever double
   #  as a lexicon value
\q{
Usage:
 findgrep [switches] line-pattern [filename-pattern [dirnames...]]
Switches:
 -R   recurse
 -m123   minimum filesize in bytes   (default: 0)
 -m123K  minimum filesize in kilobytes
 -m123M  minimum filesize in megabytes
 -m123G  minimum filesize in gigabytes
 -M123   maximum filesize in bytes   (default: 10 million)
 -M123K  maximum filesize in kilobytes
 -M123M  maximum filesize in megabytes
 -M123G  maximum filesize in gigabytes
 -h      exit, displaying this message
 --      signal end of switches

Line-pattern should be a regexp that matches lines.
Filename-pattern should be a regexp that matches basenames.
  If not specified, uses all filenames not starting with a dot.
Dirnames should be list of directories to search in.
  If not specified, uses current directory.
Example:
  findgrep -R '\bgr[ea]y\b' '\.txt$' ~/stuff
},


  # Any further entries...

);
# End of lexicon.



1;  # End of module.