File Coverage

blib/lib/Module/Install/Bundle/Platypus.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package Module::Install::Bundle::Platypus;
use strict;
use warnings;
use Data::Dumper;

our $VERSION = '0.00002';

use base qw(Module::Install::Base);

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


    my $class = delete $args{class} || 'App::BundleDeps::Platypus';
    foreach my $required qw(script) {
        die "required parameter $required not specified in bundle_platypus"
            unless $args{$required};
    }
    $args{version} ||= $self->version() ||
        die "could not guess version for bundle_platypus";

    $args{extlib} ||= 'extlib';

    local $Data::Dumper::Indent = 0;
    local $Data::Dumper::Varname = "MIBP_VAR";
    local $Data::Dumper::Useqq = 1;
    my $args = Dumper(\%args);
    $args =~ s/^\s*\$MIBP_VAR\d+\s*=\s*{//;
    $args =~ s/}\s*;?\s*$//;

    $self->Makefile->postamble(<
platypus: metafile
\t\$(FULLPERLRUN) -M$class -e '$class->new($args)->bundle_from_meta()'
EOM
}

1;

__END__