package Tangram::Expr::Table; use strict; # This is a stub version of Tangram::Expr::CursorObject sub new { my ($pkg, $name, $alias) = @_; bless [ $name, $alias ], $pkg; } sub from { return "@{shift()}"; } sub where { () } 1;