Lines Matching full:product
261 my $product; # Finished product, or reference to a function that
263 # The following are only used when $product is a function reference
271 $product = $opts{delimiters} ? '[]' : '';
273 $product = sub {
283 $product = $opts{delimiters} ? '{}' : '';
285 $product = sub {
294 $product = defined $$ref ? quotify1 $$ref : "undef";
296 $product = defined $ref ? quotify1 $ref : "undef";
299 if (ref($product) eq "CODE") {
300 $delim_l . join($separator, map { &$product } @items) . $delim_r;
302 $product;