File Coverage

blib/lib/App/DuckPAN/Cmd/Env/Cmd.pm
Criterion Covered Total %
statement 3 12 25.0
branch n/a
condition n/a
subroutine 1 2 50.0
pod 0 1 0.0
total 4 15 26.6


line stmt bran cond sub pod time code
1             package App::DuckPAN::Cmd::Env::Cmd;
2             our $AUTHORITY = 'cpan:DDG';
3             # ABSTRACT: Base class for Env commands
4             $App::DuckPAN::Cmd::Env::Cmd::VERSION = '1017';
5 1     1   900 use Moo::Role;
  1         2  
  1         9  
6              
7             requires 'run';
8              
9             has env => (
10             is => 'rw',
11             );
12              
13             has root => (
14             is => 'rw',
15             );
16              
17             sub execute {
18 0     0 0   my ( $self, $args, $chain ) = @_;
19 0           my $root = shift @{$chain};
  0            
20 0           $self->root($root);
21 0           my $env = shift @{$chain};
  0            
22 0           $self->env($env);
23 0           $self->run(@{$args});
  0            
24             }
25              
26             1;
27              
28             __END__
29              
30             =pod
31              
32             =head1 NAME
33              
34             App::DuckPAN::Cmd::Env::Cmd - Base class for Env commands
35              
36             =head1 VERSION
37              
38             version 1017
39              
40             =head1 AUTHOR
41              
42             DuckDuckGo <open@duckduckgo.com>, Zach Thompson <zach@duckduckgo.com>, Zaahir Moolla <moollaza@duckduckgo.com>, Torsten Raudssus <torsten@raudss.us> L<https://raudss.us/>
43              
44             =head1 COPYRIGHT AND LICENSE
45              
46             This software is Copyright (c) 2013 by DuckDuckGo, Inc. L<https://duckduckgo.com/>.
47              
48             This is free software, licensed under:
49              
50             The Apache License, Version 2.0, January 2004
51              
52             =cut