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 { |
sub pre_dump { |
56 |
my $data = shift; |
my $data = shift; |
57 |
my $dump = dump( $data ); |
my $dump = dump( $data ); |
58 |
$dump =~ s{"([^"]+)"(\s*=>)}{$1 $2}gs; |
$dump =~ s{"([^"]+)"(\s*=>)}{$1 $2}gs; |
59 |
$dump =~ s{"([^"]+)"}{"<b>$1</b>"}gs; |
$dump =~ s{"([^"]*)"}{"<b>$1</b>"}gs; |
60 |
qq|<pre>$dump</pre>|; |
qq|<pre>$dump</pre>|; |
61 |
} |
} |
62 |
|
|