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

sub tt {
        qq|<tt>| . join(' ', @_) . qq|</tt>|;
}

warn "loaded";

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	dpavlin	64	sub tt {
15			qq\|<tt>\| . join(' ', @_) . qq\|</tt>\|;
16			}
17
18	dpavlin	45	warn "loaded";
19
20	dpavlin	43	1;