App-FatPacker
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/App/FatPacker.pm view on Meta::CPAN
my $self = shift;
my ($args, $options) = @_;
local *ARGV = [ @{$args} ];
$self->{option_parser}->getoptions(@$options);
return [ @ARGV ];
}
sub lines_of {
map +(chomp,$_)[1], do { local @ARGV = ($_[0]); <> };
}
sub stripspace {
my ($text) = @_;
$text =~ /^(\s+)/ && $text =~ s/^$1//mg;
$text;
}
sub import {
$_[1] && $_[1] eq '-run_script'
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.455 second using v1.00-cache-2.02-grep-82fe00e-cpan-da92000dfeb )