File Coverage

blib/lib/Geo/Direction/Name/Spec/Bagua.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::Bagua;
2              
3 11     11   58 use warnings;
  11         20  
  11         315  
4 11     11   60 use strict;
  11         21  
  11         299  
5 11     11   61 use Carp;
  11         50  
  11         734  
6              
7 11     11   61 use version; our $VERSION = qv('0.0.1');
  11         31  
  11         61  
8 11     11   986 use base qw(Geo::Direction::Name::Spec);
  11         30  
  11         176  
9              
10             BEGIN
11             {
12 11 50   11   1438 if ( $] >= 5.006 )
13             {
14 11         62 require utf8; import utf8;
  11         58  
15             }
16             }
17              
18 765     765 1 209628 sub devide_num { 8 }
19              
20 250     250 1 10036 sub allowed_dev { qw(8) }
21              
22 0     0 1 0 sub default_dev { 8 }
23              
24 103     103 1 2137 sub default_locale { "zh_CN" }
25              
26             1;
27             __END__