187 |
|
|
188 |
my ( $package, $path, $line ) = caller(1); |
my ( $package, $path, $line ) = caller(1); |
189 |
|
|
190 |
$content = "/$content" if -e $content; |
$content = "/$content" if $content !~ m{[\n\r]} && -e $content; |
191 |
if ( $content =~ $re_html ) { |
if ( $content =~ $re_html ) { |
192 |
$head = qq| |
$head = qq| |
193 |
$content |
$content |
431 |
|
|
432 |
sub add_status { |
sub add_status { |
433 |
my ( $self, $data ) = @_; |
my ( $self, $data ) = @_; |
434 |
push @status, { 'X' => [ $self->backtrace ] }; |
die "no data" unless $data; |
435 |
if ( ref($data) ) { |
if ( ref $data ) { |
436 |
push @status, $data; |
push @status, $data; |
437 |
} else { |
} else { |
438 |
if ( defined $status[ $#status ] ) { |
if ( defined $status[ $#status ] ) { |