view release on metacpan or  search on metacpan

lib/GraphQL/ppport.h  view on Meta::CPAN

BmPREVIOUS|5.003007||Viu
BmRARE|5.003007||Viu
BmUSEFUL|5.003007||Viu
BOL|5.003007||Viu
BOL_t8|5.035004||Viu
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
BOUND|5.003007||Viu
BOUNDA|5.013009||Viu
BOUNDA_t8|5.035004||Viu
BOUNDA_t8_p8|5.033003||Viu
BOUNDA_t8_pb|5.033003||Viu

lib/GraphQL/ppport.h  view on Meta::CPAN

#ifndef isUTF8_CHAR
#  define isUTF8_CHAR(s, e)              (                                            \
    (e) <= (s) || ! is_utf8_string(s, UTF8_SAFE_SKIP(s, e))                     \
    ? 0                                                                         \
    : UTF8SKIP(s))
#endif

#endif

#if 'A' == 65
#ifndef BOM_UTF8
#  define BOM_UTF8                       "\xEF\xBB\xBF"
#endif

#ifndef REPLACEMENT_CHARACTER_UTF8
#  define REPLACEMENT_CHARACTER_UTF8     "\xEF\xBF\xBD"
#endif

#elif '^' == 95
#ifndef BOM_UTF8
#  define BOM_UTF8                       "\xDD\x73\x66\x73"
#endif

#ifndef REPLACEMENT_CHARACTER_UTF8
#  define REPLACEMENT_CHARACTER_UTF8     "\xDD\x73\x73\x71"
#endif

#elif '^' == 176
#ifndef BOM_UTF8
#  define BOM_UTF8                       "\xDD\x72\x65\x72"
#endif

#ifndef REPLACEMENT_CHARACTER_UTF8
#  define REPLACEMENT_CHARACTER_UTF8     "\xDD\x72\x72\x70"
#endif

#else
#  error Unknown character set
#endif

t/53_parser_adversarial.t  view on Meta::CPAN

  'overlong UTF-8' => "{ \xC0\xAF }",
  'huge integer literal' => '{ f(a: ' . ('9' x 5000) . ') }',
  'huge float exponent' => '{ f(a: 1.0e' . ('9' x 5000) . ') }',
  'many leading minus' => '{ f(a: ' . ('-' x 1000) . '1) }',
  'unbalanced closers' => '{ a } } } }',
  'only openers (bounded)' => '{' x 1000,
  'deep brackets in value' => '{ f(a: ' . ('[' x 1000) . ') }',
  'empty document' => '',
  'whitespace only' => "   \n\t  ",
  'just a comment' => "# nothing here\n",
  'BOM then query' => "\x{feff}{ a }",
  'name with all digits after' => '{ ' . ('a' x 100000) . ' }',
  'giant comment' => '# ' . ('x' x 200000) . "\n{ a }",
  'nested block string quotes' => '{ f(a: """he said """"") }',
  'spread without name' => '{ ... }',
  'directive without name' => '{ a @ }',
  'variable without name' => 'query($) { a }',
);

for my $label (sort keys %CASES) {
  my $outcome = parse_outcome($CASES{$label});