File Coverage

blib/lib/Data/Decode/Encode/Guess/JP.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 16 16 100.0


line stmt bran cond sub pod time code
1             # $Id: /mirror/perl/Data-Decode/trunk/lib/Data/Decode/Encode/Guess/JP.pm 4834 2007-11-03T09:22:42.139028Z daisuke $
2             #
3             # Copyright (c) 2007 Daisuke Maki
4             # All rights reserved.
5              
6             package Data::Decode::Encode::Guess::JP;
7 3     3   9448 use strict;
  3         6  
  3         98  
8 3     3   15 use warnings;
  3         7  
  3         102  
9 3     3   14 use base qw(Data::Decode::Encode::Guess);
  3         14  
  3         832  
10              
11             sub new
12             {
13 2     2 1 38 my $class = shift;
14 2         27 $class->SUPER::new(encodings => [ qw(shiftjis euc-jp 7bit-jis utf8) ], @_);
15             }
16              
17             1;
18              
19             __END__