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__ |