view release on metacpan or  search on metacpan

examples/search_cpan.pl  view on Meta::CPAN

                            ? $-[0] - 100
                            : $previous;
                        $next = $next > $+[0] + 100 ? $+[0] + 100 : $next;
                    }

                    my $snippet
                        = substr( $contents, $previous, $next - $previous );
                    $snippet
                        =~ s{$search}{color('black on_yellow') . $& . color('reset')}eg;
                    say '' if $lines++;
                    say color('bold green'), $key, color('reset');
                    say "$snippet";
                }
            }
        );
    };
}

ppport.h  view on Meta::CPAN

#ifndef UV_MAX
#  define UV_MAX                         PERL_ULONG_MAX
#endif

#endif

#ifndef IVSIZE
#  ifdef LONGSIZE
#    define IVSIZE LONGSIZE
#  else
#    define IVSIZE 4 /* A bold guess, but the best we can make. */
#  endif
#endif
#ifndef UVTYPE
#  define UVTYPE                         unsigned IVTYPE
#endif

#ifndef UVSIZE
#  define UVSIZE                         IVSIZE
#endif
#ifndef sv_setuv