<(common.inc.plp)><:
- use Shiar_Sheet::KeySigns qw(%sign);
-
our $VERSION = 'v1.0';
+ use Shiar_Sheet::KeySigns qw(%sign);
+
$header{content_type} = "text/html; charset=$sign{charset}";
:><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
<(common.inc.plp)><:
- use Shiar_Sheet::KeySigns qw(%sign);
-
our $VERSION = 'v1.0';
+ use Shiar_Sheet::KeySigns qw(%sign);
+
$header{content_type} = "text/html; charset=$sign{charset}";
:><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
<(common.inc.plp)><:
- use Shiar_Sheet::KeySigns qw(%sign);
-
our $VERSION = 'v1.0';
+ use Shiar_Sheet::KeySigns qw(%sign);
+
$header{content_type} = "text/html; charset=$sign{charset}";
:><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
<(common.inc.plp)><:
- use Shiar_Sheet::KeySigns qw(%sign); # dependant on $get{ascii}
-
our $VERSION = 'v1.0';
+ use Shiar_Sheet::KeySigns qw(%sign); # dependant on $get{ascii}
+
$header{content_type} = "text/html; charset=$sign{charset}";
:><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
my $tag = $_->[0] && ($TYPETAG{ $_->[0] } || 'span');
my $arg = '';
print "<$tag$arg class=\"sy-\l$_->[0]\">" if $tag;
- if ($_->[0] eq 'Constant'
- and $_->[1] =~ s{^(['"])(/?[a-z0-9_.]+\.(?:plp?|css|js))(?=\1$)}{}) {
+ if (!$_->[0] || $_->[0] eq 'Constant'
+ and $_->[1] =~ s{^(['"]?)(/?[a-z0-9_.]+\.(?:plp?|css|js))(?=\1$)}{}) {
printf '%s<a href="%s">%s</a>', $1, "/source/$2", $2;
}
if (!$_->[0] and $_->[1] =~ s/^(\s*)([A-Z]\w+(?:::\w+)+)(?![^;\s])//) {
<(common.inc.plp)><:
- use List::Util 'min';
-
our $VERSION = 'v1.0';
+ use List::Util 'min';
+
:><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<(common.inc.plp)><:
- use Shiar_Sheet::KeySigns qw(%sign); # dependant on $get{ascii}
-
our $VERSION = 'v1.2';
+ use Shiar_Sheet::KeySigns qw(%sign); # dependant on $get{ascii}
+
$header{content_type} = "text/html; charset=$sign{charset}";
:><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
<(common.inc.plp)><:
- use Shiar_Sheet::KeySigns qw(%sign);
-
our $VERSION = 'v1.0';
+ use Shiar_Sheet::KeySigns qw(%sign);
+
$header{content_type} = "text/html; charset=$sign{charset}";
:><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"