view release on metacpan or  search on metacpan

srcout/tuba_dispatch_getmeth.h  view on Meta::CPAN

46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
    GV* end_data;
    GV* end_json;
    GV* end_special;
    GV* end_boolean;
    GV* end_null;
    GV* end_any;
} methgv;
 
#endif /* PLTUBA_METHGV_STRUCT */
 
/** X-Macro for method names */
#ifdef PLTUBA_DEFINE_XMETHGV
#define PLTUBA_XMETHGV \
X(on, string) \
X(on, key) \
X(on, number) \
X(on, object) \
X(on, list) \
X(on, data) \
X(on, json) \
X(on, special) \

srcutil/method_dispatch.pl  view on Meta::CPAN

62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
}
 
print <<'EOC';
} methgv;
 
#endif /* PLTUBA_METHGV_STRUCT */
EOC
 
print <<"EOC";
 
/** X-Macro for method names */
#ifdef PLTUBA_DEFINE_XMETHGV
#define PLTUBA_XMETHGV \\
EOC
 
foreach (@mode_types) {
    my $mode = $_->[0];
    foreach (@object_types) {
        my $obj = $_->[0];
        print <<"EOC";
X($mode, $obj) \\