File Coverage

File:config/init/manifest.pm
Coverage:100.0%

linestmtbrancondsubcode
1# Copyright (C) 2001-2003, Parrot Foundation.
2
3 - 11
=head1 NAME

config/init/manifest.pm - MANIFEST Check

=head1 DESCRIPTION

Uses C<ExtUtils::Manifest> to check that the distribution is complete.

=cut
12
13package init::manifest;
14
15
2
2
2
2
use strict;
16
2
2
2
2
use warnings;
17
18
2
2
2
2
use base qw(Parrot::Configure::Step);
19
20
2
2
2
2
use Parrot::Configure::Step;
21
2
2
2
2
use Parrot::Configure::Utils ':gen';
22
2
2
2
2
use ExtUtils::Manifest qw(manicheck);
23
24
25sub _init {
26
3
3
    my $self = shift;
27
3
    my %data;
28
3
    $data{description} = q{Check MANIFEST};
29
3
    $data{result} = q{};
30
3
    return \%data;
31}
32
33sub runstep {
34
3
3
    my ( $self, $conf ) = @_;
35
36
3
    $conf->append_configure_log('MANIFEST.configure.generated');
37
3
100
    if ( $conf->options->get('nomanicheck') ) {
38
1
        $self->set_result('skipped');
39
1
        return 1;
40    }
41
42
2
    my @missing = ExtUtils::Manifest::manicheck();
43
44
2
100
    if (@missing) {
45
1
        print <<"END";
46
47Ack, some files were missing! I can't continue running
48without everything here. Please try to find the above
49files and then try running Configure again.
50
51END
52
53
1
        return;
54    }
55
56
1
    return 1;
57}
58
591;
60
61# Local Variables:
62# mode: cperl
63# cperl-indent-level: 4
64# fill-column: 100
65# End:
66# vim: expandtab shiftwidth=4: