File Coverage

blib/lib/Geo/Direction/Name/Spec/Dizhi.pm
Criterion Covered Total %
statement 21 22 95.4
branch 1 2 50.0
condition n/a
subroutine 9 10 90.0
pod 4 4 100.0
total 35 38 92.1


line stmt bran cond sub pod time code
1             package Geo::Direction::Name::Spec::Dizhi;
2              
3 11     11   58 use warnings;
  11         21  
  11         298  
4 11     11   55 use strict;
  11         23  
  11         281  
5 11     11   53 use Carp;
  11         15  
  11         612  
6              
7 11     11   63 use version; our $VERSION = qv('0.0.1');
  11         18  
  11         76  
8 11     11   820 use base qw(Geo::Direction::Name::Spec);
  11         21  
  11         969  
9              
10             BEGIN
11             {
12 11 50   11   30550 if ( $] >= 5.006 )
13             {
14 11         89 require utf8; import utf8;
  11         53  
15             }
16             }
17              
18 1015     1015 1 369830 sub devide_num { 24 }
19              
20 500     500 1 8935 sub allowed_dev { qw(12 24) }
21              
22 0     0 1 0 sub default_dev { 12 }
23              
24 103     103 1 912 sub default_locale { "zh_CN" }
25              
26              
27             1;
28             __END__