Lines Matching refs:item
91 # name of data item used by view()
92 $self->{ item } = $config->{ item } || 'item';
108 delete @$config{ qw( base method map default prefix suffix notfound item
166 my @args = qw( base prefix suffix notfound item method include_prefix
186 # the internal 'map' hash. If an entry isn't found and the item is an
187 # object that implements the method named in the internal 'method' item,
210 my ($item, $type, $template, $present);
216 foreach $item (@_) {
219 if (! ($type = ref $item)) {
227 if ( $method && UNIVERSAL::can($item, $method) ) {
228 $present = $item->$method($self); ## call item method
230 # $item to have called error() on the view
235 elsif ( ref($item) eq 'HASH'
236 && defined($newtype = $item->{$method})
251 $self->DEBUG("printing view '", $template || '', "', $item\n") if $DEBUG;
252 $output .= $self->view($template, $item)
260 # view($template, $item, \%vars)
263 # followed by a data item, $item, and optionally, a further hash array
264 # of template variables. The $item is added as an entry to the $vars
266 # name specified by the internal 'item' member, which is appropriately
267 # 'item' by default. Thus an external object present() method can
268 # callback against this object method, simply passing a data item to
270 # view expects the item to be called in the $vars hash.
274 my ($self, $template, $item) = splice(@_, 0, 3);
276 $vars->{ $self->{ item } } = $item if defined $item;
288 # as an internal item.
397 # '.') or presents a view if the method matches the view_prefix item,
410 my $item = $AUTOLOAD;
411 $item =~ s/.*:://;
412 return if $item eq 'DESTROY';
414 if ($item =~ /^[\._]/) {
416 "attempt to view private member: $item");
418 elsif (exists $self->{ $item }) {
419 # update existing config item (e.g. 'prefix') if unsealed
421 "cannot update config item in sealed view: $item")
423 $self->DEBUG("accessing item: $item\n") if $DEBUG;
424 return @_ ? ($self->{ $item } = shift) : $self->{ $item };
426 elsif (exists $self->{ data }->{ $item }) {
427 # get/update existing data item (must be unsealed to update)
430 "cannot update item in sealed view: $item")
435 $self->DEBUG(@_ ? "updating data item: $item <= $_[0]\n"
436 : "returning data item: $item\n") if $DEBUG;
437 return @_ ? ($self->{ data }->{ $item } = shift)
438 : $self->{ data }->{ $item };
441 # set data item if unsealed
442 $self->DEBUG("setting unsealed data: $item => @_\n") if $DEBUG;
443 $self->{ data }->{ $item } = shift;
445 elsif ($item =~ s/^$self->{ view_prefix }//) {
446 $self->DEBUG("returning view($item)\n") if $DEBUG;
447 return $self->view($item, @_);
449 elsif ($item =~ s/^$self->{ include_prefix }//) {
450 $self->DEBUG("returning include($item)\n") if $DEBUG;
451 return $self->include($item, @_);
454 $self->DEBUG("returning naked include($item)\n") if $DEBUG;
455 return $self->include($item, @_);
458 $self->DEBUG("returning naked view($item)\n") if $DEBUG;
459 return $self->view($item, @_);
463 "no such view member: $item");
534 Text: [% item %]
541 hash keys: [% item.keys.sort.join(', ')
548 list: [% item.join(', ') %]
555 [% item.this %], [% item.that %]
563 # change prefix, suffix, item name, etc.
584 =item prefix
591 =item suffix
598 =item map
602 particular item. The TEXT, HASH and ARRAY items default to 'test',
615 Text: [% item %]
619 list: [% item.join(', ') %]
623 hash keys: [% item.keys.sort.join(', ')
627 Foo: [% item.this %], [% item.that %]
630 =item method
658 =item default
660 Default template to use if no specific map entry is found for an item.
676 =item notfound
680 =item item
683 item. Defaults to 'item'.
687 [% item.join(', ') %]
691 [% USE view(item => 'thing') %]
697 =item view_prefix
708 =item view_naked