| blib/lib/Text/Highlight/Perl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 4 | 4 | 100.0 |
| branch | n/a | ||
| condition | n/a | ||
| subroutine | 2 | 2 | 100.0 |
| pod | 0 | 1 | 0.0 |
| total | 6 | 7 | 85.7 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | package Text::Highlight::Perl; | ||||||
| 2 | 1 | 1 | 4 | use strict; | |||
| 1 | 2 | ||||||
| 1 | 699 | ||||||
| 3 | |||||||
| 4 | sub syntax | ||||||
| 5 | { | ||||||
| 6 | return { | ||||||
| 7 | 1 | 1 | 0 | 172 | 'name' => 'Perl', | ||
| 8 | 'blockCommentOn' => [], | ||||||
| 9 | 'case' => 1, | ||||||
| 10 | 'key3' => { | ||||||
| 11 | 'ne' => 1, | ||||||
| 12 | 'tr' => 1, | ||||||
| 13 | 'le' => 1, | ||||||
| 14 | 'not' => 1, | ||||||
| 15 | 'x' => 1, | ||||||
| 16 | 'y' => 1, | ||||||
| 17 | 'or' => 1, | ||||||
| 18 | 'eq' => 1, | ||||||
| 19 | 'qw' => 1, | ||||||
| 20 | 'qq' => 1, | ||||||
| 21 | 'm' => 1, | ||||||
| 22 | 's' => 1, | ||||||
| 23 | 'cmp' => 1, | ||||||
| 24 | 'lt' => 1, | ||||||
| 25 | 'xor' => 1, | ||||||
| 26 | 'gt' => 1, | ||||||
| 27 | 'q' => 1, | ||||||
| 28 | 'qx' => 1, | ||||||
| 29 | 'and' => 1, | ||||||
| 30 | 'ge' => 1 | ||||||
| 31 | }, | ||||||
| 32 | 'key2' => { | ||||||
| 33 | 'scalar' => 1, | ||||||
| 34 | 'sqrt' => 1, | ||||||
| 35 | 'print' => 1, | ||||||
| 36 | 'getppid' => 1, | ||||||
| 37 | 'vec' => 1, | ||||||
| 38 | 'rename' => 1, | ||||||
| 39 | 'chop' => 1, | ||||||
| 40 | 'caller' => 1, | ||||||
| 41 | 'wantarray' => 1, | ||||||
| 42 | 'each' => 1, | ||||||
| 43 | 'undef' => 1, | ||||||
| 44 | 'stat' => 1, | ||||||
| 45 | 'open' => 1, | ||||||
| 46 | 'getpwuid' => 1, | ||||||
| 47 | 'setpriority' => 1, | ||||||
| 48 | 'flock' => 1, | ||||||
| 49 | 'eof' => 1, | ||||||
| 50 | 'delete' => 1, | ||||||
| 51 | 'rindex' => 1, | ||||||
| 52 | 'getpwent' => 1, | ||||||
| 53 | 'getpeername' => 1, | ||||||
| 54 | 'quotemeta' => 1, | ||||||
| 55 | 'tied' => 1, | ||||||
| 56 | 'setnetent' => 1, | ||||||
| 57 | 'system' => 1, | ||||||
| 58 | 'time' => 1, | ||||||
| 59 | 'shmget' => 1, | ||||||
| 60 | 'die' => 1, | ||||||
| 61 | 'getprotobyname' => 1, | ||||||
| 62 | 'unshift' => 1, | ||||||
| 63 | 'warn' => 1, | ||||||
| 64 | 'uc' => 1, | ||||||
| 65 | 'getprotobynumber' => 1, | ||||||
| 66 | 'getpriority' => 1, | ||||||
| 67 | 'ord' => 1, | ||||||
| 68 | 'truncate' => 1, | ||||||
| 69 | 'getlogin' => 1, | ||||||
| 70 | 'sort' => 1, | ||||||
| 71 | 'length' => 1, | ||||||
| 72 | 'index' => 1, | ||||||
| 73 | 'bless' => 1, | ||||||
| 74 | 'wait' => 1, | ||||||
| 75 | 'chdir' => 1, | ||||||
| 76 | 'shmwrite' => 1, | ||||||
| 77 | 'seekdir' => 1, | ||||||
| 78 | 'exists' => 1, | ||||||
| 79 | 'opendir' => 1, | ||||||
| 80 | 'shmread' => 1, | ||||||
| 81 | 'exit' => 1, | ||||||
| 82 | 'substr' => 1, | ||||||
| 83 | 'no' => 1, | ||||||
| 84 | 'kill' => 1, | ||||||
| 85 | 'unlink' => 1, | ||||||
| 86 | 'readdir' => 1, | ||||||
| 87 | 'grep' => 1, | ||||||
| 88 | 'getservent' => 1, | ||||||
| 89 | 'write' => 1, | ||||||
| 90 | 'split' => 1, | ||||||
| 91 | 'exp' => 1, | ||||||
| 92 | 'ioctl' => 1, | ||||||
| 93 | 'values' => 1, | ||||||
| 94 | 'getservbyname' => 1, | ||||||
| 95 | 'setsockopt' => 1, | ||||||
| 96 | 'setprotoent' => 1, | ||||||
| 97 | 'sin' => 1, | ||||||
| 98 | 'push' => 1, | ||||||
| 99 | 'shift' => 1, | ||||||
| 100 | 'pack' => 1, | ||||||
| 101 | 'hex' => 1, | ||||||
| 102 | 'endprotoent' => 1, | ||||||
| 103 | 'setgrent' => 1, | ||||||
| 104 | 'getpgrp' => 1, | ||||||
| 105 | 'msgctl' => 1, | ||||||
| 106 | 'msgrcv' => 1, | ||||||
| 107 | 'keys' => 1, | ||||||
| 108 | 'close' => 1, | ||||||
| 109 | 'gethostbyname' => 1, | ||||||
| 110 | 'printf' => 1, | ||||||
| 111 | 'select' => 1, | ||||||
| 112 | 'formline' => 1, | ||||||
| 113 | 'accept' => 1, | ||||||
| 114 | 'gmtime' => 1, | ||||||
| 115 | 'chmod' => 1, | ||||||
| 116 | 'import' => 1, | ||||||
| 117 | 'fork' => 1, | ||||||
| 118 | 'splice' => 1, | ||||||
| 119 | 'endpwent' => 1, | ||||||
| 120 | 'lc' => 1, | ||||||
| 121 | 'rewinddir' => 1, | ||||||
| 122 | 'getgrent' => 1, | ||||||
| 123 | 'atan2' => 1, | ||||||
| 124 | 'fcntl' => 1, | ||||||
| 125 | 'sysread' => 1, | ||||||
| 126 | 'getsockname' => 1, | ||||||
| 127 | 'closedir' => 1, | ||||||
| 128 | 'listen' => 1, | ||||||
| 129 | 'getservbyport' => 1, | ||||||
| 130 | 'sethostent' => 1, | ||||||
| 131 | 'study' => 1, | ||||||
| 132 | 'semctl' => 1, | ||||||
| 133 | 'lcfirst' => 1, | ||||||
| 134 | 'localtime' => 1, | ||||||
| 135 | 'ref' => 1, | ||||||
| 136 | 'chown' => 1, | ||||||
| 137 | 'abs' => 1, | ||||||
| 138 | 'join' => 1, | ||||||
| 139 | 'tell' => 1, | ||||||
| 140 | 'sysopen' => 1, | ||||||
| 141 | 'int' => 1, | ||||||
| 142 | 'endgrent' => 1, | ||||||
| 143 | 'untie' => 1, | ||||||
| 144 | 'unpack' => 1, | ||||||
| 145 | 'gethostent' => 1, | ||||||
| 146 | 'setservent' => 1, | ||||||
| 147 | 'syswrite' => 1, | ||||||
| 148 | 'getnetent' => 1, | ||||||
| 149 | 'setpwent' => 1, | ||||||
| 150 | 'alarm' => 1, | ||||||
| 151 | 'glob' => 1, | ||||||
| 152 | 'pos' => 1, | ||||||
| 153 | 'oct' => 1, | ||||||
| 154 | 'getnetbyaddr' => 1, | ||||||
| 155 | 'getsockopt' => 1, | ||||||
| 156 | 'syscall' => 1, | ||||||
| 157 | 'chr' => 1, | ||||||
| 158 | 'tie' => 1, | ||||||
| 159 | 'shmctl' => 1, | ||||||
| 160 | 'getnetbyname' => 1, | ||||||
| 161 | 'semop' => 1, | ||||||
| 162 | 'binmode' => 1, | ||||||
| 163 | 'waitpid' => 1, | ||||||
| 164 | 'gethostbyaddr' => 1, | ||||||
| 165 | 'mkdir' => 1, | ||||||
| 166 | 'ucfirst' => 1, | ||||||
| 167 | 'times' => 1, | ||||||
| 168 | 'semget' => 1, | ||||||
| 169 | 'pop' => 1, | ||||||
| 170 | 'lstat' => 1, | ||||||
| 171 | 'pipe' => 1, | ||||||
| 172 | 'getc' => 1, | ||||||
| 173 | 'sysseek' => 1, | ||||||
| 174 | 'rmdir' => 1, | ||||||
| 175 | 'shutdown' => 1, | ||||||
| 176 | 'read' => 1, | ||||||
| 177 | 'fileno' => 1, | ||||||
| 178 | 'new' => 1, | ||||||
| 179 | 'msgget' => 1, | ||||||
| 180 | 'prototype' => 1, | ||||||
| 181 | 'exec' => 1, | ||||||
| 182 | 'srand' => 1, | ||||||
| 183 | 'chroot' => 1, | ||||||
| 184 | 'defined' => 1, | ||||||
| 185 | 'telldir' => 1, | ||||||
| 186 | 'bind' => 1, | ||||||
| 187 | 'readlink' => 1, | ||||||
| 188 | 'socket' => 1, | ||||||
| 189 | 'reverse' => 1, | ||||||
| 190 | 'utime' => 1, | ||||||
| 191 | 'recv' => 1, | ||||||
| 192 | 'endhostent' => 1, | ||||||
| 193 | 'setpgrp' => 1, | ||||||
| 194 | 'send' => 1, | ||||||
| 195 | 'dump' => 1, | ||||||
| 196 | 'socketpair' => 1, | ||||||
| 197 | 'getpwnam' => 1, | ||||||
| 198 | 'endnetent' => 1, | ||||||
| 199 | 'crypt' => 1, | ||||||
| 200 | 'cos' => 1, | ||||||
| 201 | 'endservent' => 1, | ||||||
| 202 | 'symlink' => 1, | ||||||
| 203 | 'reset' => 1, | ||||||
| 204 | 'getgrnam' => 1, | ||||||
| 205 | 'log' => 1, | ||||||
| 206 | 'sprintf' => 1, | ||||||
| 207 | 'getgrgid' => 1, | ||||||
| 208 | 'connect' => 1, | ||||||
| 209 | 'dbmopen' => 1, | ||||||
| 210 | 'eval' => 1, | ||||||
| 211 | 'link' => 1, | ||||||
| 212 | 'rand' => 1, | ||||||
| 213 | 'getprotoent' => 1, | ||||||
| 214 | 'format' => 1, | ||||||
| 215 | 'chomp' => 1, | ||||||
| 216 | 'dbmclose' => 1, | ||||||
| 217 | 'msgsnd' => 1, | ||||||
| 218 | 'umask' => 1, | ||||||
| 219 | 'sleep' => 1, | ||||||
| 220 | 'seek' => 1 | ||||||
| 221 | }, | ||||||
| 222 | 'lineComment' => [ | ||||||
| 223 | '#' | ||||||
| 224 | ], | ||||||
| 225 | 'delimiters' => ',(){}[]-+*/=~!&|<>?:;.$@%', | ||||||
| 226 | 'key1' => { | ||||||
| 227 | 'require' => 1, | ||||||
| 228 | 'next' => 1, | ||||||
| 229 | 'lock' => 1, | ||||||
| 230 | 'SIG' => 1, | ||||||
| 231 | 'my' => 1, | ||||||
| 232 | 'if' => 1, | ||||||
| 233 | 'redo' => 1, | ||||||
| 234 | 'map' => 1, | ||||||
| 235 | '__END__' => 1, | ||||||
| 236 | 'our' => 1, | ||||||
| 237 | 'FALSE' => 1, | ||||||
| 238 | 'ARGV' => 1, | ||||||
| 239 | 'INC' => 1, | ||||||
| 240 | 'for' => 1, | ||||||
| 241 | 'else' => 1, | ||||||
| 242 | 'ENV' => 1, | ||||||
| 243 | 'continue' => 1, | ||||||
| 244 | 'TRUE' => 1, | ||||||
| 245 | '__LINE__' => 1, | ||||||
| 246 | 'do' => 1, | ||||||
| 247 | 'local' => 1, | ||||||
| 248 | 'foreach' => 1, | ||||||
| 249 | 'use' => 1, | ||||||
| 250 | 'ARGVOUT' => 1, | ||||||
| 251 | 'goto' => 1, | ||||||
| 252 | 'STDOUT' => 1, | ||||||
| 253 | 'last' => 1, | ||||||
| 254 | 'unless' => 1, | ||||||
| 255 | 'package' => 1, | ||||||
| 256 | 'elsif' => 1, | ||||||
| 257 | 'return' => 1, | ||||||
| 258 | 'until' => 1, | ||||||
| 259 | 'while' => 1, | ||||||
| 260 | 'STDERR' => 1, | ||||||
| 261 | 'sub' => 1, | ||||||
| 262 | 'STDIN' => 1, | ||||||
| 263 | '__DATA__' => 1, | ||||||
| 264 | '__PACKAGE__' => 1, | ||||||
| 265 | '__FILE__' => 1 | ||||||
| 266 | }, | ||||||
| 267 | 'quot' => [ | ||||||
| 268 | '\'', | ||||||
| 269 | '"' | ||||||
| 270 | ], | ||||||
| 271 | 'escape' => '\\', | ||||||
| 272 | 'continueQuote' => 1 | ||||||
| 273 | }; | ||||||
| 274 | |||||||
| 275 | } | ||||||
| 276 | |||||||
| 277 | 1; | ||||||
| 278 | __END__ |