File Coverage

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


line stmt bran cond sub pod time code
1             package Unicode::BiDiRule;
2              
3 3     3   105118 use 5.008;
  3         16  
  3         169  
4 3     3   20 use strict;
  3         6  
  3         147  
5 3     3   37 use warnings;
  3         12  
  3         612  
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.02';
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__