File Coverage

blib/lib/Encode/Arabic.pm
Criterion Covered Total %
statement 42 55 76.3
branch 2 8 25.0
condition 2 3 66.6
subroutine 14 16 87.5
pod 2 2 100.0
total 62 84 73.8


line stmt bran cond sub pod time code
1             # ###################################################################### Otakar Smrz, 2003/01/23
2             #
3             # Encodings of Arabic ##########################################################################
4              
5             package Encode::Arabic;
6              
7             our $VERSION = '14.2';
8              
9 1     1   13358 use 5.008;
  1         2  
10              
11 1     1   3 use strict;
  1         1  
  1         15  
12 1     1   2 use warnings;
  1         2  
  1         18  
13              
14 1     1   3 use Carp;
  1         1  
  1         160  
15              
16              
17             sub import { # perform import as if Encode were used one level before this module
18              
19 2 50 66 2   2215 if (defined $_[1] and $_[1] eq ':modes') {
20              
21 0         0 require Exporter;
22              
23 0         0 our @ISA = qw 'Exporter';
24 0         0 our @EXPORT_OK = qw 'enmode demode';
25              
26 0         0 __PACKAGE__->export_to_level(1, $_[0], 'enmode', 'demode');
27              
28 0         0 splice @_, 1, 1;
29             }
30              
31 2         8 require Encode;
32              
33 2 50       16 push @Encode::ISA, 'Exporter' unless Encode->can('export_to_level');
34              
35 2         170 Encode->export_to_level(1, @_);
36             }
37              
38              
39 1     1   452 use lib '..';
  1         428  
  1         4  
40              
41 1     1   718 use Encode::Arabic::ArabTeX;
  1         2  
  1         4  
42 1     1   580 use Encode::Arabic::ArabTeX::RE;
  1         1  
  1         2  
43              
44 1     1   527 use Encode::Arabic::ArabTeX::Verbatim;
  1         1  
  1         3  
45              
46 1     1   445 use Encode::Arabic::ArabTeX::ZDMG;
  1         2  
  1         2  
47 1     1   329 use Encode::Arabic::ArabTeX::ZDMG::RE;
  1         2  
  1         3  
48              
49 1     1   330 use Encode::Arabic::Buckwalter;
  1         2  
  1         2  
50              
51 1     1   334 use Encode::Arabic::Parkinson;
  1         2  
  1         2  
52              
53 1     1   358 use Encode::Arabic::Habash;
  1         1  
  1         3  
54              
55              
56             sub enmode ($@) {
57              
58 0     0 1   my $enc = shift;
59 0           my $obj = Encode::find_encoding($enc);
60              
61 0 0         croak "Unknown encoding '$enc'" unless defined $obj;
62              
63 0           $obj->enmode(@_);
64             }
65              
66              
67             sub demode ($@) {
68              
69 0     0 1   my $enc = shift;
70 0           my $obj = Encode::find_encoding($enc);
71              
72 0 0         croak "Unknown encoding '$enc'" unless defined $obj;
73              
74 0           $obj->demode(@_);
75             }
76              
77              
78             1;
79              
80             __END__