+
Frey $Frey::VERSION $revision
+ $status_line
+ $right
+
+ | : '';
+
+ $self->add_icon;
+
+ my $title = undef
+ || $a->{title}
+ || $self->title
+ || ref($self)
+ ;
+
+# $title =~ s{(\w)\w+::}{$1:}g; # XXX compress names of classes
+
+ $self->add_css(qq|
+ body {
+ padding-bottom: 3em; /* don't overlap status line */
+ }
+ |);
my $html = join("\n",
qq||,
$self->_head_html,
- '