79 |
$out .= $self->_inline_path( $path ) ? |
$out .= $self->_inline_path( $path ) ? |
80 |
qq|<!-- $path --><style type="text/css">\n| . read_file( $path ) . qq|\n</style>| : |
qq|<!-- $path --><style type="text/css">\n| . read_file( $path ) . qq|\n</style>| : |
81 |
qq|<link type="text/css" rel="stylesheet" href="/$path" media="screen">|; |
qq|<link type="text/css" rel="stylesheet" href="/$path" media="screen">|; |
82 |
} elsif ( $path =~ m{<.+>} ) { |
} elsif ( $path =~ m{<.+>}s ) { |
83 |
$out .= $path; |
$out .= $path; |
84 |
} else { |
} else { |
85 |
confess "don't know how to render $path"; |
confess "don't know how to render $path"; |
104 |
return if ! defined $path || $path eq ''; |
return if ! defined $path || $path eq ''; |
105 |
$path =~ s!^/!!; |
$path =~ s!^/!!; |
106 |
|
|
107 |
if ( $path =~ m{<.*>} ) { |
if ( $path =~ m{<.*>}s ) { |
108 |
push @{ $self->head }, $path; |
push @{ $self->head }, $path; |
109 |
} elsif ( -e $path ) { |
} elsif ( -e $path ) { |
110 |
if ( $path =~ m/\.(?:js|css)$/ ) { |
if ( $path =~ m/\.(?:js|css)$/ ) { |