File Coverage

blib/lib/uni/perl/ru.pm
Criterion Covered Total %
statement 9 9 100.0
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 13 15 86.6


line stmt bran cond sub pod time code
1             package uni::perl::ru;
2              
3 1     1   5 use uni::perl;
  1         2  
  1         9  
4 1     1   628 use uni::perl::encodebase;
  1         2  
  1         156  
5             m{
6             use strict;
7             use warnings;
8             }x;
9              
10             our $LOADED;
11             sub load {
12 1 50   1 0 6 $LOADED++ and return;
13 1         4 uni::perl::encodebase::generate(qw(cp1251 koi8r cp866));
14 1         6 return;
15             }
16              
17             1;