Google-ProtocolBuffers-Dynamic

 view release on metacpan or  search on metacpan

src/dynamic.cpp  view on Meta::CPAN

        sym_INC     = "INC",
        sym_SIG     = "SIG",
        sym_STDIN   = "STDIN",
        sym_STDOUT  = "STDOUT",
        sym_STDERR  = "STDERR",

        sym_BEGIN     = "BEGIN",
        sym_CHECK     = "CHECK",
        sym_END       = "END",
        sym_INIT      = "INIT",
        sym_UNITCHECK = "UNITCHECK";

    // does the same job as S_gv_is_in_main in gv.c
    bool is_in_main(const string &name) {
        size_t length = name.length();

        switch (name[0]) {
        case '_':
            return length == 1;
        case 'A':
            return name == sym_ARGV || name == sym_ARGVOUT;

src/dynamic.cpp  view on Meta::CPAN

        switch (name[0]) {
        case 'B':
            return name == sym_BEGIN;
        case 'C':
            return name == sym_CHECK;
        case 'E':
            return name == sym_END;
        case 'I':
            return name == sym_INIT;
        case 'U':
            return name == sym_UNITCHECK;
        default:
            return false;
        }
    }
}

MappingOptions::MappingOptions(pTHX_ SV *options_ref) :
        use_bigints(sizeof(IV) < sizeof(int64_t)),
        check_required_fields(true),
        explicit_defaults(false),

src/ppport.h  view on Meta::CPAN

KEY_tied|5.003007||Viu
KEY_time|5.003007||Viu
KEY_times|5.003007||Viu
KEY_tr|5.003007||Viu
KEY_truncate|5.003007||Viu
KEY_try|5.033007||Viu
KEY_uc|5.003007||Viu
KEY_ucfirst|5.003007||Viu
KEY_umask|5.003007||Viu
KEY_undef|5.003007||Viu
KEY_UNITCHECK|5.009005||Viu
KEY_unless|5.003007||Viu
KEY_unlink|5.003007||Viu
KEY_unpack|5.003007||Viu
KEY_unshift|5.003007||Viu
KEY_untie|5.003007||Viu
KEY_until|5.003007||Viu
KEY_use|5.003007||Viu
KEY_utime|5.003007||Viu
KEY_values|5.003007||Viu
KEY_vec|5.003007||Viu

t/403_issue_46.t  view on Meta::CPAN

  ARGV    = 4;
  ARGVOUT = 5;
  ENV     = 6;
  INC     = 7;
  SIG     = 8;
  _       = 9;
  BEGIN   = 10;
  CHECK   = 11;
  END     = 12;
  INIT    = 13;
  UNITCHECK=14;
}
EOT

$d->map({ package => 'enums', prefix => 'Enums'});

my $values = Enums::Keywords->enum_descriptor->values;

for my $name (sort keys %$values) {
    # could be done without eval "", but this is simpler...
    my $code = sprintf <<'EOT', $name, $name, $name, $values->{$name}, $name;