File Coverage

blib/lib/Algorithm.pm
Criterion Covered Total %
statement 18 32 56.2
branch 0 4 0.0
condition n/a
subroutine 7 8 87.5
pod n/a
total 25 44 56.8


line stmt bran cond sub pod time code
1             package Algorithm;
2              
3 1     1   21805 use strict;
  1         2  
  1         33  
4 1     1   4 use warnings;
  1         2  
  1         43  
5              
6             our $AUTOLOAD;
7             our $VERSION = '0.05';
8              
9             BEGIN {
10 1     1   31 use Exporter;
  1         12  
  1         60  
11 1     1   11 our @ISA=qw/Exporter/;
12 1         69 our @EXPORT=qw/&AUTOLOAD/;
13             }
14              
15             sub AUTOLOAD {
16 0     0     my $subroutine=$AUTOLOAD;
17 0           $subroutine=~s/.*:://;
18              
19 0 0         if($subroutine=~/Search/) {
20 1     1   4 no strict 'refs';
  1         3  
  1         108  
21 0           require Algorithm::Searching;
22 0           my $module='Algorithm::Searching';
23 0           my $callme=$module.'::'.$subroutine;
24              
25 0           &{$callme}(@_);
  0            
26             }
27              
28 0 0         if($subroutine=~/Sort/) {
29 1     1   5 no strict 'refs';
  1         1  
  1         87  
30 0           require Algorithm::Sorting;
31 0           my $module='Algorithm::Sorting';
32 0           my $callme=$module.'::'.$subroutine;
33              
34 0           &{$callme}(@_);
  0            
35             }
36             }
37              
38             return 1;
39              
40 1     1   6 END {}
41              
42             __END__