File Coverage

blib/lib/Module/Install/InlineModule.pm

Criterion	Covered	Total	%
statement	12	19	63.1
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	16	25	64.0

use strict; use warnings;
package Module::Install::InlineModule;
our $VERSION = '0.01';

use base 'Module::Install::Base';
use Inline::Module;

# use XXX;

sub inline {
    my ($self, %args) = @_;

    my $makemaker = {};
    my $postamble = Inline::Module::postamble(
        $makemaker,
        inline => \%args,
    );
    $self->postamble($postamble);
    my $IM = $Inline::Module::Self;
    for my $module ($IM->included_modules) {
        $self->include($module);
    }
}

1;