A | B | C #### NavBar(' | ', ['TASK_A', 'TASK_B', 'TASK_C']); #### sub render { my($self, $source, $buffer) = @_; my($sep) = $self->render_attribute('separator'. $source); my($need_sep) = 0; foreach my $w (@{$self->get('values')}) { my($b); $self->unsafe_render_value($w, $source, \$b); $$buffer .= ($need_sep++ ? $sep : '') . $$b if $$b; } return; }