File Coverage

blib/lib/App/Prove/Elasticsearch/Platformer/Default.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             # ABSTRACT: Determine the platform of the system under test via System::Info for upload to elasticsearch
2             # PODNAME: App::Prove::Elasticsearch::Platformer::Default
3              
4             package App::Prove::Elasticsearch::Platformer::Default;
5             $App::Prove::Elasticsearch::Platformer::Default::VERSION = '0.001';
6 2     2   83249 use strict;
  2         11  
  2         43  
7 2     2   8 use warnings;
  2         3  
  2         36  
8 2     2   464 use utf8;
  2         17  
  2         7  
9              
10 2     2   690 use System::Info;
  2         25968  
  2         179  
11              
12             sub get_platforms {
13 1     1 1 145 my $details = System::Info::sysinfo_hash();
14 1         13 return [ $details->{osname}, $details->{distro}, "Perl $]" ];
15             }
16              
17             1;
18              
19             __END__