view release on metacpan or  search on metacpan

myConfig  view on Meta::CPAN

if (defined $Config{'gccversion'})
 {
  $ver = $Config{'gccversion'};
  if ($ver ge "2.8")
   {
    # retain author's favourite warnings if using gcc
    $gccopt .= " -ggdb -Wall -Wno-implicit-int -Wno-comment -Wno-unused -D__USE_FIXED_PROTOTYPES__";
    eval
     {
      if ((getpwuid($<))[6] =~ /Nick\s+Ing-Simmons/)
       {
        # This is the author - catch as many bugs as possible
        $gccopt .= "  -MMD -Werror";
        @macro = ( macro => { INSTALLDIRS => 'perl' });
       }
     }
   }
   # else{ $define .= ' -g ' }

 }

testTextEdit  view on Meta::CPAN

                            'endMatch' => '',
                            'parentPattern' => '',
                            'startMatch' => '\\b(if|until|while|elsif|else|unless|for(each)?|continue|last|goto|next|redo|do(?=\\s*\\{)|BEGIN|END)bb'
                          },
          'library functions' => {
                                   'highlightStyle' => 'Subroutine',
                                   'options' => undef,
                                   'errorMatch' => '',
                                   'endMatch' => '',
                                   'parentPattern' => '',
                                   'startMatch' => '\\b((?# arithmetic functions)abs|atan2|cos|exp|int|log|rand|sin|sqrt|srand|time|(?# conversion functions)chr|gmtime|hex|localtime|oct|ord|vec|(?# structure conversion)pack|unpack|(?# string function...
                                 },
          'subroutine call' => {
                                 'highlightStyle' => 'Subroutine1',
                                 'options' => 'D',
                                 'errorMatch' => '',
                                 'endMatch' => '',
                                 'parentPattern' => '',
                                 'startMatch' => '&\\w(\\w|::)\\b|\\b\\w(\\w|::)*(?=\\s*\\()'
                               },
          'comment' => {