package Date;

use strict; use warnings;

sub new {
	my ($pkg) = @_;
	my $self = bless {
		cells => [],
		is_header => [],
		colspan => [],
	}, $pkg;
	return $self;
}

sub cell {
	my ($self) = shift;
	if (ref $_[0]) { $attrs = shift; }
	my ($x, $y, $content) = @_;

	my $tag = $attrs->{is_header} ? "<th>" : "<td>";
	
	$self->{is_header}[$x][$y] = $attrs->{is_header};
	$self->{colspan}[$x][$y] = $attrs->{colspan};
}
