File Coverage

blib/lib/App/Greple/subst/desumasu.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1             package App::Greple::subst::desumasu;
2              
3             our $VERSION = "0.07";
4              
5 1     1   870 use 5.014;
  1         4  
6 1     1   6 use warnings;
  1         2  
  1         28  
7 1     1   648 use utf8;
  1         15  
  1         5  
8              
9 1     1   626 use App::Greple::subst;
  1         170395  
  1         148  
10              
11 1     1   17 use File::Share qw(:all);
  1         2  
  1         181  
12             $ENV{DESUMASU_DICT} = dist_dir __PACKAGE__ =~ s/::/-/gr;
13              
14             1;
15              
16             =encoding utf-8
17              
18             =head1 NAME
19              
20             App::Greple::subst::desumasu - Japanese DESU/MASU dictionary for App::Greple::subst
21              
22             =head1 SYNOPSIS
23              
24             greple -Msubst::desumasu --dearu --subst --all file
25              
26             greple -Msubst::desumasu --dearu --diff file
27              
28             greple -Msubst::desumasu --dearu --replace file
29              
30             =head1 DESCRIPTION
31              
32             greple -Msubst module based on
33             L<desumasu-converter|https://github.com/kssfilo/desumasu-converter>.
34              
35             This is a simple checker/converter module for the Japanese writing
36             styles so called DESU/MASU (ですます調: 敬体) and DEARU (である調: 常
37             体). This is not my own idea and the dictionary is based on
38             L<https://github.com/kssfilo/desumasu-converter>.
39              
40             See article L<https://kanasys.com/tech/722> for detail.
41              
42             =head1 OPTIONS
43              
44             =over 7
45              
46             =item B<--dearu>
47              
48             =item B<--dearu-n>
49              
50             =item B<--dearu-N>
51              
52             Convert DESU/MASU to DEARU style.
53              
54             DESU (です) and MASU (ます) are sometimes followed by NE (ね) in an
55             open situation, and that NE (ね) is removed from the converted result
56             by default. Option with B<-n> keeps the NE (ね), and option with
57             B<-N> igonores it.
58              
59             =item B<--desumasu>
60              
61             =item B<--desumasu-n>
62              
63             =item B<--desumasu-N>
64              
65             Convert DEARU to DESU/MASU style.
66              
67             =back
68              
69             Use them with B<greple> B<-Msubst> options.
70              
71             =over 7
72              
73             =item B<--subst --all --no-color>
74              
75             Print converted text.
76              
77             =item B<--diff>
78              
79             Produce diff output of original and converted text. Use B<cdif>
80             command in L<App::sdif> to visualize the difference.
81              
82             =item B<--create>
83              
84             =item B<--replace>
85              
86             =item B<--overwrite>
87              
88             To update the file, use these options. Option B<--create> make new
89             file with extention C<.new>. Option B<--replace> updates the target
90             file with backup, while option B<--overwrite> does it without backup.
91              
92             =back
93              
94             See L<App::Greple::subst> for other options.
95              
96             =head1 INSTALL
97              
98             =head2 CPANMINUS
99              
100             From CPAN:
101              
102             cpanm App::Greple::subst::desumasu
103              
104             From GIT repository:
105              
106             cpanm https://github.com/kaz-utashiro/greple-subst-desumasu.git
107              
108             =head1 SEE ALSO
109              
110             L<App::Greple>, L<App::Greple::subst>
111              
112             L<App::sdif>
113              
114             L<https://github.com/kssfilo/desumasu-converter>,
115             L<https://kanasys.com/tech/722>
116              
117             L<greple で「ですます調」を「である化」する|https://qiita.com/kaz-utashiro/items/8f4878300043ce7b73e7>
118              
119             =head1 AUTHOR
120              
121             Kazumasa Utashiro
122              
123             =head1 LICENSE
124              
125             Copyright 2021-2022 Kazumasa Utashiro.
126              
127             This library is free software; you can redistribute it and/or modify
128             it under the same terms as Perl itself.
129              
130             =cut
131              
132             __DATA__
133              
134             option default -Msubst
135              
136             define DICTDIR $ENV{DESUMASU_DICT}
137              
138             option --desumasu --dict DICTDIR/desumasu.dict
139             option --dearu --dict DICTDIR/dearu.dict
140              
141             option --desumasu-n --dict DICTDIR/desumasu-keep-ne.dict
142             option --dearu-n --dict DICTDIR/dearu-keep-ne.dict
143              
144             option --desumasu-N --dict DICTDIR/desumasu-ignore-ne.dict
145             option --dearu-N --dict DICTDIR/dearu-ignore-ne.dict
146              
147             # LocalWords: diff cdif