Parent Directory | Revision Log | Patch
revision 172 by dpavlin, Thu Aug 6 22:27:34 2009 UTC | revision 187 by dpavlin, Sun Aug 9 21:59:17 2009 UTC | |
---|---|---|
# | Line 1 | Line 1 |
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; |
# | Line 46 sub select { | Line 48 sub select { |
48 | ); | ); |
49 | } | } |
50 | ||
51 | sub pre_dump { | |
52 | my $data = shift; | |
53 | my $dump = dump( $data ); | |
54 | $dump =~ s{"([^"]+)"(\s*=>)}{$1 $2}gs; | |
55 | $dump =~ s{"([^"]*)"}{"<b>$1</b>"}gs; | |
56 | qq|<pre>$dump</pre>|; | |
57 | } | |
58 | ||
59 | warn "loaded"; | warn "loaded"; |
60 | ||
61 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |