File Coverage

blib/lib/Unicode/BiDiRule.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 11 11 100.0


line stmt bran cond sub pod time code
1             package Unicode::BiDiRule;
2              
3 3     3   184622 use 5.008;
  3         25  
4 3     3   11 use strict;
  3         6  
  3         47  
5 3     3   10 use warnings;
  3         5  
  3         371  
6              
7             require Exporter;
8              
9             our @ISA = qw(Exporter);
10              
11             our %EXPORT_TAGS = (
12             'all' => [
13             qw(check BIDIRULE_RTL BIDIRULE_LTR BIDIRULE_NOTBIDI BIDIRULE_INVALID)]
14             );
15              
16             our @EXPORT_OK = @{$EXPORT_TAGS{'all'}};
17              
18             our $VERSION = '0.04';
19             our $XS_VERSION = $VERSION;
20             $VERSION = eval $VERSION; # see L
21              
22             require XSLoader;
23             XSLoader::load('Unicode::BiDiRule', $XS_VERSION);
24              
25             1;
26             __END__