Lines Matching refs:el

204     for my $el (@l) {
205         local $_ = $el;
206         push @res, $el =~ /^(?:[,\.\{\}\(\):;\[\]\|])$/ || ref $el eq 'ARRAY' ? 
207                     $el : $f->();
363     my ($el, $expected) = @_;
365         ref $el eq 'ARRAY' and $el->[0] eq $expected;
368         ref $el eq 'ARRAY';
408             while (defined(my $el = shift @new)) {
409                 if    (_is_control($el, 'hardspace'))   { $no_space = 1; $res .= ' ' }
410                 elsif (_is_control($el, 'nospace'))     { $no_space = 1;             }
411                 elsif (_is_control($el, 'spaceoff'))    { $space_off = 1;            }
412                 elsif (_is_control($el, 'spaceon'))     { space('on');               }
413                 elsif (_is_control($el, 'spacetoggle')) { space() eq 'on' ? 
419                         $res .= "$el"
422                         $res .= "$sep$el"