File Coverage

blib/lib/Bio/Graphics/Browser2/CAlign.pm
Criterion Covered Total %
statement 11 14 78.5
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 15 20 75.0


line stmt bran cond sub pod time code
1             package Bio::Graphics::Browser2::CAlign;
2              
3 1     1   17 use 5.005;
  1         1  
4 1     1   4 use Carp;
  1         1  
  1         58  
5 1     1   3 use vars qw(@ISA @EXPORT @EXPORT_OK);
  1         1  
  1         47  
6 1     1   3 use strict;
  1         1  
  1         79  
7              
8             require Exporter;
9             require DynaLoader;
10              
11             @ISA = qw(Exporter DynaLoader);
12             @EXPORT = ();
13             @EXPORT_OK = qw(align);
14              
15             bootstrap Bio::Graphics::Browser2::CAlign;
16              
17             sub align {
18 0     0 0   my $class = shift;
19 0           my ($src,$tgt,$matrix) = @_;
20 0           return $class->_do_alignment($src,$tgt,$matrix);
21             }
22              
23             1;
24             __END__