File Coverage

blib/lib/App/DuckPAN/Cmd/Env/Cmd/List.pm
Criterion Covered Total %
statement 6 13 46.1
branch 0 2 0.0
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 19 42.1


line stmt bran cond sub pod time code
1             package App::DuckPAN::Cmd::Env::Cmd::List;
2             our $AUTHORITY = 'cpan:DDG';
3             # ABSTRACT: List all env variables
4             $App::DuckPAN::Cmd::Env::Cmd::List::VERSION = '1019';
5 1     1   928 use Moo;
  1         2  
  1         5  
6             with qw( App::DuckPAN::Cmd::Env::Cmd );
7              
8 1     1   268 use MooX::Options protect_argv => 0;
  1         2  
  1         33  
9              
10             sub run {
11 0     0 0   my ( $self ) = @_;
12 0           my $data = $self->env->load_env_ini;
13 0 0         if (keys %{$data}) {
  0            
14 0           $self->root->emit_info("export ". $_ ."=". $data->{$_} ) for (sort keys %{$data});
  0            
15             }
16             else {
17 0           $self->root->emit_notice("There are no env variables set currently.");
18             }
19             }
20              
21             1;
22              
23             __END__
24              
25             =pod
26              
27             =head1 NAME
28              
29             App::DuckPAN::Cmd::Env::Cmd::List - List all env variables
30              
31             =head1 VERSION
32              
33             version 1019
34              
35             =head1 AUTHOR
36              
37             DuckDuckGo <open@duckduckgo.com>, Zach Thompson <zach@duckduckgo.com>, Zaahir Moolla <moollaza@duckduckgo.com>, Torsten Raudssus <torsten@raudss.us> L<https://raudss.us/>
38              
39             =head1 COPYRIGHT AND LICENSE
40              
41             This software is Copyright (c) 2013 by DuckDuckGo, Inc. L<https://duckduckgo.com/>.
42              
43             This is free software, licensed under:
44              
45             The Apache License, Version 2.0, January 2004
46              
47             =cut