+ # Variables
+
+ {
+ local $Regexp::Wildcards::CaptureSingle = 1;
+ try $t, 'multiple capturing ?', '??\\??', '(.)(.)\\?(.)';
+ local $Regexp::Wildcards::CaptureAny = 1;
+ try $t, 'multiple capturing * (greedy)', '**\\**', '(.*)\\*(.*)';
+ try $t, 'multiple capturing * (greedy) and capturing ?',
+ '**??\\??\\**', '(.*)(.)(.)\\?(.)\\*(.*)';
+ $Regexp::Wildcards::CaptureSingle = 0;
+ try $t, 'multiple capturing * (greedy) and non-capturing ?',
+ '**??\\??\\**', '(.*)..\\?.\\*(.*)';
+ $Regexp::Wildcards::CaptureAny = -1;
+ try $t, 'multiple capturing * (non-greedy)', '**\\**', '(.*?)\\*(.*?)';
+ try $t, 'multiple capturing * (non-greedy) and non-capturing ?',
+ '**??\\??\\**', '(.*?)..\\?.\\*(.*?)';
+ $Regexp::Wildcards::CaptureSingle = 1;
+ try $t, 'multiple capturing * (non-greedy) and capturing ?',
+ '**??\\??\\**', '(.*?)(.)(.)\\?(.)\\*(.*?)';
+ }
+