8 |
has 'head' => ( |
has 'head' => ( |
9 |
is => 'rw', |
is => 'rw', |
10 |
isa => 'ArrayRef[Str]', |
isa => 'ArrayRef[Str]', |
11 |
default => sub { [] }, |
default => sub { [ 'static/frey.css' ] }, |
12 |
); |
); |
13 |
|
|
14 |
sub dom2html { |
sub dom2html { |
72 |
. ( $a->{head} || '' ) |
. ( $a->{head} || '' ) |
73 |
. '</head><body>' |
. '</head><body>' |
74 |
. ( $a->{body} || '<!-- no body -->' ) |
. ( $a->{body} || '<!-- no body -->' ) |
75 |
# . qq|<div class="frey-status-line"> <a href="/">Frey</a> $Frey::VERSION <a href="?reload=$reload_counter">reload</a> </div>| |
. qq|<div class="frey-status-line"> <a href="/">Frey</a> $Frey::VERSION <a href="?reload=$reload_counter">reload</a> </div>| |
76 |
. '</body></html>' |
. '</body></html>' |
77 |
; |
; |
78 |
|
|