File Coverage

blib/lib/Module/Version.pm
Criterion Covered Total %
statement 19 19 100.0
branch 4 4 100.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 30 30 100.0


line stmt bran cond sub pod time code
1             package Module::Version;
2             our $AUTHORITY = 'cpan:XSAWYERX';
3             # ABSTRACT: Get module versions
4             $Module::Version::VERSION = '0.201';
5 4     4   67258 use strict;
  4         11  
  4         127  
6 4     4   21 use warnings;
  4         8  
  4         122  
7 4     4   1301 use parent 'Exporter';
  4         851  
  4         24  
8              
9 4     4   235 use Carp qw< croak >;
  4         8  
  4         191  
10 4     4   3199 use ExtUtils::MakeMaker;
  4         431407  
  4         774  
11              
12             our @EXPORT_OK = 'get_version';
13              
14             sub get_version {
15 12 100   12 1 2209 my $module = shift or croak 'Must get a module name';
16 11         86 my $file = MM->_installed_file_for_module($module);
17              
18 11 100       1778 $file || return;
19              
20 7         39 return MM->parse_version($file);
21             }
22              
23             1;
24              
25             __END__