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   671 use strict;
  1         2  
  1         35  
4 1     1   5 use warnings;
  1         2  
  1         25  
5 1     1   5 use Carp;
  1         2  
  1         60  
6 1     1   12 use Module::New::Meta;
  1         2  
  1         11  
7 1     1   53 use Module::New::Queue;
  1         2  
  1         120  
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__