The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package Tangram::Expr::TableAlias;

my $top = 1_000;

sub new
{
	'l' . ++$top
}

1;