File Coverage

blib/lib/App/gimpgitbuild/Command/runenv.pm
Criterion Covered Total %
statement 17 27 62.9
branch n/a
condition 0 2 0.0
subroutine 6 10 60.0
pod 4 4 100.0
total 27 43 62.7


line stmt bran cond sub pod time code
1             package App::gimpgitbuild::Command::runenv;
2             $App::gimpgitbuild::Command::runenv::VERSION = '0.32.1';
3 1     1   378893 use strict;
  1         2  
  1         43  
4 1     1   6 use warnings;
  1         2  
  1         65  
5 1     1   22 use 5.014;
  1         4  
6              
7 1     1   506 use App::gimpgitbuild -command;
  1         4  
  1         15  
8              
9 1     1   11247 use Path::Tiny qw/ path tempdir tempfile cwd /;
  1         16103  
  1         121  
10              
11 1     1   621 use App::gimpgitbuild::API::GitBuild ();
  1         4  
  1         236  
12              
13             sub description
14             {
15 0     0 1   return "set the environment for running GIMP-from-git";
16             }
17              
18             sub abstract
19             {
20 0     0 1   return shift->description();
21             }
22              
23             sub opt_spec
24             {
25 0     0 1   return ();
26              
27              
28             }
29              
30             sub execute
31             {
32 0     0 1   my ( $self, $opt, $args ) = @_;
33              
34 0           my $output_fn = $opt->{output};
35 0   0       my $exe = $opt->{exec} // [];
36              
37 0           my $obj = App::gimpgitbuild::API::GitBuild->new;
38              
39 0           my $env = $obj->new_env;
40 0           print <<"EOF";
41             export LD_LIBRARY_PATH="$env->{LD_LIBRARY_PATH}" ;
42             EOF
43              
44 0           return;
45             }
46              
47             1;
48              
49             __END__