1 |
package html; |
package html; |
2 |
|
|
3 |
|
use Data::Dump qw/dump/; |
4 |
|
|
5 |
sub table { |
sub table { |
6 |
my $cols = shift; |
my $cols = shift; |
7 |
my $th; |
my $th; |
34 |
|
|
35 |
|
|
36 |
sub tt { |
sub tt { |
37 |
qq|<tt>| . join(' ', @_) . qq|</tt>|; |
qq|<tt>| . join(' ', @_) . qq|</tt>| if @_; |
38 |
} |
} |
39 |
|
|
40 |
sub select { |
sub select { |
48 |
); |
); |
49 |
} |
} |
50 |
|
|
51 |
|
sub pre { |
52 |
|
qq|<pre>| . join(' ', @_) . qq|</pre>| if @_; |
53 |
|
} |
54 |
|
|
55 |
|
sub pre_dump { |
56 |
|
my $data = shift; |
57 |
|
my $dump = dump( $data ); |
58 |
|
$dump =~ s{"([^"]+)"(\s*=>)}{$1 $2}gs; |
59 |
|
$dump =~ s{"([^"]*)"}{"<b>$1</b>"}gs; |
60 |
|
qq|<pre>$dump</pre>|; |
61 |
|
} |
62 |
|
|
63 |
warn "loaded"; |
warn "loaded"; |
64 |
|
|
65 |
1; |
1; |