187 |
|
|
188 |
my ( $package, $path, $line ) = caller(1); |
my ( $package, $path, $line ) = caller(1); |
189 |
|
|
190 |
if ( $content =~ m{\.(js|css)} ) { |
$content = "/$content" if $content !~ m{[\n\r]} && -e $content; |
191 |
$content = "/$content" if -e $content; |
if ( $content =~ $re_html ) { |
192 |
if ( $content =~ $re_html ) { |
$head = qq| |
193 |
$head = qq| |
$content |
194 |
$content |
<!-- $type via $package at $path line $line --> |
195 |
<!-- $type via $package at $path line $line --> |
|; |
196 |
|; |
} elsif ( $content =~ m{^(/|https?://)} ) { |
197 |
} elsif ( $what eq 'js' ) { |
if ( $what eq 'js' ) { |
198 |
$head = qq| |
$head = qq| |
199 |
<$tag type="$type" src="$content"> |
<$tag type="$type" src="$content"> |
200 |
/* $what via $package at $path line $line */ |
/* $what via $package at $path line $line */ |
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 ] ) { |