/usr/local/CPAN/Tangram/Tangram/Expr/TableAlias.pm

• package Tangram::Expr::TableAlias
  • new
• EOF

package Tangram::Expr::TableAlias;

my $top = 1_000;

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

1;