view release on metacpan or  search on metacpan

srcout/tuba_dispatch_getmeth.h  view on Meta::CPAN

    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

}

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) \\