File Coverage

blib/lib/Bio/Polloc/Polloc/Version.pm
Criterion Covered Total %
statement 12 12 100.0
branch 2 2 100.0
condition 2 3 66.6
subroutine 3 3 100.0
pod n/a
total 19 20 95.0


line stmt bran cond sub pod time code
1             =head1 NAME
2              
3             Bio::Polloc::Polloc::Version - Provides central package-wide version
4              
5             =head1 AUTHOR - Luis M. Rodriguez-R
6              
7             Email lrr at cpan dot org
8              
9             =cut
10              
11             package Bio::Polloc::Polloc::Version;
12              
13 12     12   59 use strict;
  12         22  
  12         632  
14             our $VERSION = 1.0503;
15              
16             sub import {
17 12     12   67 no strict 'refs';
  12         23  
  12         1366  
18 12     12   23 my $c = -1;
19 12         59 while(defined caller(++$c)){
20 187         324 my $v = caller($c) . "::VERSION";
21 187 100 66     832 ${$v} = $VERSION if $v =~ /^Bio::Polloc::/ and not defined ${$v};
  28         187  
  28         230  
22             }
23             }
24              
25             1;