/[pxelator]/lib/PXElator/html.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /lib/PXElator/html.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 43 - (hide annotations)
Wed Jul 29 19:57:07 2009 UTC (12 years, 4 months ago) by dpavlin
File size: 247 byte(s)
turn debug on/off

1 dpavlin 43 package html;
2    
3     sub table {
4     my $cols = shift;
5     my @td = map { "<td>$_</td>" } @_;
6     my $html = qq{<table>\n<tr>};
7     foreach ( 0 .. $#td ) {
8     $html .= $td[$_];
9     $html .= qq{</tr>\n<tr>} if $_ % $cols == 1;
10     }
11     $html .= qq{</tr>\n</table>};
12     }
13    
14     1;

  ViewVC Help
Powered by ViewVC 1.1.26