Lines Matching refs:items
517 my ($indent, $comment, $namelen, $items, @items) = @_;
520 my @names = sort map {$_->{name}} @items;
604 my $thisone = $items->{$name};
656 my ($default_type, $what, $indent, $options, @items) = @_;
662 foreach (@items) {
753 my ($package, $subname, $default_type, $what, $indent, $breakout, @items)
770 $result .= dump_names ($default_type, $what, 0, {declare_types=>1}, @items);
919 my ($package, $subname, $default_type, $what, $indent, $breakout, @items)
927 my ($namelen, $items);
929 # We are called recursively. We trust @items to be normalised, $what to
930 # be a hashref, and pinch %$items from our parent to save recalculation.
931 ($namelen, $items) = @$breakout;
935 $items = {};
936 tie %$items, 'ExtUtils::Constant::Aaargh56Hash';
947 foreach my $orig (@items) {
977 if (exists $items->{$name}) {
980 $items->{$name} = $item;
983 if (exists $items->{$name} and ref $items->{$name} ne 'ARRAY') {
993 $items->{$name}[1] = $item;
1006 if ($items->{$name}[0]) {
1011 $items->{$name}[0] = $item;
1017 @items = @new_items;
1018 # use Data::Dumper; print Dumper @items;
1036 $body .= switch_clause (2, $comment, $namelen, $items, @items);
1041 $breakout, @items);
1045 foreach (@items) {
1065 $body .= switch_clause (4, '', $i, $items, @{$by_length[$i]});
1076 $indent, [$i, $items], @{$by_length[$i]});
1188 /* Return 1 or 2 items. First is error message, or undef if no error.