lib/PXElator/html.pm

package html;

sub table {
        my $cols = shift;
        my @td = map { "<td>$_</td>" } @_;
        my $html = qq{<table>\n<tr>};
        foreach ( 0 .. $#td ) {
                        $html .= $td[$_];
                        $html .= qq{</tr>\n<tr>} if $_ % $cols == 1;
        }
        $html .= qq{</tr>\n</table>};
}

1;
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;