File Coverage

lib/Egg/Plugin/Filter/Plugin/Japanese/Shift_JIS.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Egg::Plugin::Filter::Plugin::Japanese::Shift_JIS;
2             #
3             # Masatoshi Mizuno E<lt>lusheE<64>cpan.orgE<gt>
4             #
5             # $Id: Shift_JIS.pm 337 2008-05-14 12:30:09Z lushe $
6             #
7 1     1   496 use strict;
  1         2  
  1         31  
8 1     1   5 use warnings;
  1         3  
  1         26  
9 1     1   5 use base qw/ Egg::Plugin::Filter::Plugin::Japanese /;
  1         3  
  1         90  
10 1     1   7 use Jcode;
  1         2  
  1         144  
11              
12             our $VERSION= '3.00';
13              
14             $Egg::Plugin::Filter::Plugin::Japanese::Zspace = '\x81\x40';
15             $Egg::Plugin::Filter::Plugin::Japanese::RZspace = Jcode->new('@', 'euc')->sjis;
16              
17             1;
18              
19             __END__
20              
21             =head1 NAME
22              
23             Egg::Plugin::Filter::Plugin::Japanese::Shift_JIS - The filter for the Shift_JIS character is set up.
24              
25             =head1 DESCRIPTION
26              
27             It sets it up so that the Shift_JIS character is treated with L<Egg::Plugin::Filter::Plugin::Japanese>.
28              
29             =head1 SEE ALSO
30              
31             L<Egg::Release>,
32             L<Egg::Plugin::Filter::Plugin::Japanese>,
33              
34             =head1 AUTHOR
35              
36             Masatoshi Mizuno E<lt>lusheE<64>cpan.orgE<gt>
37              
38             =head1 COPYRIGHT
39              
40             Copyright (C) 2007 by Bee Flag, Corp. E<lt>L<http://egg.bomcity.com/>E<gt>.
41              
42             This library is free software; you can redistribute it and/or modify
43             it under the same terms as Perl itself, either Perl version 5.8.6 or,
44             at your option, any later version of Perl 5 you may have available.
45              
46             =cut
47