--- trunk/lib/Frey/Web/Links.pm 2008/10/30 22:35:11 206 +++ trunk/lib/Frey/Web/Links.pm 2008/10/31 15:33:15 207 @@ -37,11 +37,19 @@ default => ' ', ); +has 'empty' => ( + is => 'rw', + isa => 'Str', + default => '[empty]', +); + sub links { my $self = shift; my @out = map { - if ( $self->current eq $_ ) { + if ( $_ eq '' ) { + $self->empty + } elsif ( $self->current eq $_ ) { '<' . $self->current_tag . '>' . $_ . 'current_tag . '>' } else { qq|$_|