File Coverage

blib/lib/Lingua/FA/Number.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 21 22 95.4


line stmt bran cond sub pod time code
1             ##################################################
2             # Lingua::FA::Number
3             #
4             # Ahmad Anvari, 2003
5             ##################################################
6              
7             package Lingua::FA::Number;
8              
9 1     1   25511 use strict;
  1         3  
  1         37  
10 1     1   6 use warnings;
  1         2  
  1         28  
11 1     1   5 use Exporter;
  1         7  
  1         45  
12 1     1   1157 use AutoLoader qw(AUTOLOAD);
  1         1602  
  1         5  
13              
14             our @ISA = qw(Exporter);
15              
16             our %EXPORT_TAGS = ( 'all' => [ qw(
17            
18             ) ] );
19              
20             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
21              
22             our @EXPORT = qw(
23            
24             );
25              
26             our $VERSION = '1.00';
27              
28             # Preloaded methods go here.
29              
30              
31             sub convert {
32 1     1 0 928 $_ = shift;
33 1         9 s/(\d)/"&#".(1728+ord($1)).";"/eg; # farsiaze digits
  3         14  
34 1         4 return $_;
35             }
36              
37             # Autoload methods go after =cut, and are processed by the autosplit program.
38              
39             1;
40             __END__