view release on metacpan or  search on metacpan

lib/App/Greple/annotate.pm  view on Meta::CPAN

my %type = ( '*' => ':1' );
sub optspec { $_[0] . ( $type{$_[0]} // $type{'*'} // '' ) }

sub finalize {
    our($mod, $argv) = @_;
    $config->deal_with($argv,
		       map(optspec($_), keys %{$config}));
}

use Text::ANSI::Fold::Util qw(ansi_width);
Text::ANSI::Fold->configure(expand => 1);
*vwidth = \&ansi_width;

package # no_index
Local::Annon {
    use strict;
    use warnings;
    sub new {
	my $class = shift;
	@_ == 3 or die;
	bless [ @_ ], $class;

lib/App/Greple/charcode.pm  view on Meta::CPAN

    [\x20-\x2f]*+	# intermediate bytes
    [\x40-\x7e]		# final byte
EOL

define ANSI-RESET <<EOL
    (?xn)
    ( ( \e\[ | \x9b ) [0;]* m )+
    ( ( \e\[ | \x9b ) [0;]* K )*
EOL

expand --visible-option \
    --charcode::config code=0,name=0,visible=1 \
    --cm=N

option --ansicode-raw \
    -E '(?#ansicode)(?:ANSI-RESET)+|(?:ANSI-CSI)'

option --ansicode \
    --visible-option --ansicode-raw

option --ansicode-each \