File Coverage

blib/lib/App/ThinPacker.pm

Criterion	Covered	Total	%
statement	18	36	50.0
branch	0	10	0.0
condition	0	8	0.0
subroutine	6	8	75.0
pod	0	2	0.0
total	24	64	37.5

package App::ThinPacker;
use 5.8.0;

=pod

=head1 NAME

App::ThinPacker - enable your scripts to autoinstall their dependencies

=head1 DESCRIPTION

Enables your scripts to autoinstall their dependencies by injecting a small piece of code which downloads L and uses it to install all the depenencies.

=head1 SYNOPSIS

    thinpack your-script.pl > your-script-dist.pl

=head1 SEE ALSO

L

L

=head1 BUGS AND TODO

=over 4

=item No Windows support

=item Rudimentary parsing

=item Default --sudo for cpanm

=item Downloading cpanm from third-party source

=back

=head1 AUTHOR

Alex Kapranoff [e-mail]

=head1 CONTRIBUTORS

Alexey Surikov [e-mail]

=head1 LICENSE

This program is free software, you can redistribute it under the same terms as Perl itself.

=cut

use strict;
use warnings;

use PPI;
use Pod::Find;
use Pod::Usage;

our $VERSION = '0.11';

sub run {
    my $arg = shift or usage();
    usage(2) if $arg eq '-h' or $arg eq '--help';

    my $ppi      = PPI::Document->new($arg) or usage();
    my $includes = $ppi->find('Statement::Include');

    my $deps = join ' ',
               grep { $_ !~ /^(?:strict|warnings|diagnostics|base|integer)$/ }
               map { $_->module }
               @$includes;

    my $inject = join '', map { s/%%DEPS%%/$deps/; $_ } ;

    open my $script, '<', $arg or exit print "Cannot open $arg: $!\n";
    my $not_injected = 1;
    while (my $line = <$script>) {
        if ($line =~ /^use / && $not_injected) {
            print "BEGIN {\n$inject\n}\n";
            $not_injected = 0;
        }

        print $line;
    }
}

sub usage {
    pod2usage(
        -verbose => $_[0] || 0,
        -output  => \*STDERR,
        -input   => Pod::Find::pod_where(
            { -inc => 1 },
            __PACKAGE__,
        ),
    );
}

__DATA__