118 |
|
|
119 |
sub _inline { |
sub _inline { |
120 |
my ( $self, $path ) = @_; |
my ( $self, $path ) = @_; |
121 |
|
return unless defined $path; |
122 |
warn "# _inline $path"; |
warn "# _inline $path"; |
123 |
-e $path && -s $path < $self->inline_smaller_than && -s $path; |
-e $path && -s $path < $self->inline_smaller_than && -s $path; |
124 |
} |
} |
249 |
my $self = shift; |
my $self = shift; |
250 |
my $a = {@_}; |
my $a = {@_}; |
251 |
|
|
|
warn "## page ",dump($a); |
|
|
|
|
252 |
$reload_counter++; |
$reload_counter++; |
253 |
|
|
254 |
my $status_line = ''; |
my $status_line = ''; |