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 tabs {
        return unless @_;
        my $html = qq{<table border=1>\n<tr>};
        foreach my $row ( @_ ) {
                $row =~ s{\t}{</td><td>}g;
                $html .= qq|<tr><td>$row</td><tr>\n|;
        }
        $html .= qq|</table>|;
        return $html;
}
        

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	72	sub tabs {
15			return unless @_;
16			my $html = qq{<table border=1>\n<tr>};
17			foreach my $row ( @_ ) {
18			$row =~ s{\t}{</td><td>}g;
19			$html .= qq\|<tr><td>$row</td><tr>\n\|;
20			}
21			$html .= qq\|</table>\|;
22			return $html;
23			}
24
25
26	dpavlin	64	sub tt {
27			qq\|<tt>\| . join(' ', @_) . qq\|</tt>\|;
28			}
29
30	dpavlin	45	warn "loaded";
31
32	dpavlin	43	1;