File Coverage

lib/Module/New/Command/ShipIt.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Module::New::Command::ShipIt;
2              
3 1     1   967 use strict;
  1         1  
  1         52  
4 1     1   7 use warnings;
  1         2  
  1         37  
5 1     1   6 use Carp;
  1         1  
  1         79  
6 1     1   4 use Module::New::Meta;
  1         2  
  1         5  
7 1     1   49 use Module::New::Queue;
  1         2  
  1         133  
8              
9             functions {
10             shipit => sub (;%) {
11             my %options = @_;
12             Module::New::Queue->register(sub {
13             my $self = shift;
14             my $context = Module::New->context;
15             return if $options{optional} && !$context->config('shipit');
16             $context->files->add('ShipIt');
17             })
18             }
19             };
20              
21             1;
22              
23             __END__