view release on metacpan or  search on metacpan

lib/App/ansifold.pm  view on Meta::CPAN

	    }
	};
    };

    has width_index => default => [];

} no Getopt::EX::Hashed;

sub run {
    my $app = shift;
    local @ARGV = @_;
    $app->options->params->doit;
    return 0;
}

sub options {
    my $app = shift;

    for (@ARGV) {
	$_ = decode 'utf8', $_ unless utf8::is_utf8($_);
    }