… | |
… | |
151 | $perltype = "\@${perltype}s"; |
151 | $perltype = "\@${perltype}s"; |
152 | } else { |
152 | } else { |
153 | $perltype = "\$$perltype"; |
153 | $perltype = "\$$perltype"; |
154 | } |
154 | } |
155 | |
155 | |
156 | $POD .= "=item $perltype = \$$real_class->$perl_name$extra_perl_args\n\nCalls C<clGet${cbase}Info> with C<$name> and returns the result(s).\n\n"; |
156 | $POD .= "=item $perltype = \$$real_class->$perl_name$extra_perl_args\n\nCalls C<clGet${cbase}Info> with C<$name> and returns the result.\n\n"; |
157 | |
157 | |
158 | $XS .= "void\n" |
158 | $XS .= "void\n" |
159 | . "$perl_name (OpenCL::$classmap{$real_class} this$extra_xs_args)\n" |
159 | . "$perl_name (OpenCL::$classmap{$real_class} this$extra_xs_args)\n" |
160 | . " PPCODE:\n"; |
160 | . " PPCODE:\n"; |
161 | |
161 | |