187 |
|
|
188 |
my ( $package, $path, $line ) = caller(1); |
my ( $package, $path, $line ) = caller(1); |
189 |
|
|
190 |
if ( $content =~ m{\.(js|css)} ) { |
$content = "/$content" if -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 */ |