File Coverage

blib/lib/App/Prove/Plugin/SetEnv.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 18 19 94.7


line stmt bran cond sub pod time code
1 1     1   434074 use strict;
  1         2  
  1         50  
2 1     1   7 use warnings;
  1         2  
  1         124  
3              
4             package App::Prove::Plugin::SetEnv;
5              
6             $App::Prove::Plugin::SetEnv::VERSION = 'v1.0.0'; ## no critic (ProhibitPackageVars)
7              
8 1     1   694 use String::Expand qw( expand_string );
  1         1279  
  1         199  
9              
10             sub load {
11 1     1 0 31 my ( $class, $p ) = @_;
12 1         2 foreach my $arg ( @{ $p->{ args } } ) {
  1         25  
13 2         145 my ( $var, $val ) = split '=', $arg, 2;
14 2         9 $ENV{ $var } = expand_string( $val, \%ENV ) ## no critic (RequireLocalizedPunctuationVars)
15             }
16             }
17              
18             1