]> git.vpit.fr Git - perl/modules/re-engine-Hooks.git/blobdiff - t/re-engine-Hooks-TestDist/TestDist.xs
Switch to a config-object based interface
[perl/modules/re-engine-Hooks.git] / t / re-engine-Hooks-TestDist / TestDist.xs
index 95e20ed3dc088bb07e7f58278ac00572522dcec8..4e1d5119daa6fab681e9e069f3c3b3423cc64ed7 100644 (file)
@@ -79,14 +79,29 @@ PROTOTYPES: ENABLE
 
 BOOT:
 {
- reh_register(__PACKAGE__ "::foo", reht_foo_comp, reht_foo_exec);
- reht_foo_var = NULL;
+ {
+  reh_config foo_cfg;
+  foo_cfg.comp = reht_foo_comp;
+  foo_cfg.exec = reht_foo_exec;
+  reh_register(__PACKAGE__ "::foo", &foo_cfg);
+  reht_foo_var = NULL;
+ }
 
- reh_register(__PACKAGE__ "::bar", reht_bar_comp, reht_bar_exec);
- reht_bar_var = NULL;
+ {
+  reh_config bar_cfg;
+  bar_cfg.comp = reht_bar_comp;
+  bar_cfg.exec = reht_bar_exec;
+  reh_register(__PACKAGE__ "::bar", &bar_cfg);
+  reht_bar_var = NULL;
+ }
 
- reh_register(__PACKAGE__ "::custom", reht_custom_comp, reht_custom_exec);
- reht_custom_var = NULL;
+ {
+  reh_config custom_cfg;
+  custom_cfg.comp = reht_custom_comp;
+  custom_cfg.exec = reht_custom_exec;
+  reh_register(__PACKAGE__ "::custom", &custom_cfg);
+  reht_custom_var = NULL;
+ }
 }
 
 void