Help for this page
package TA::CP::DB::Schema::Result::CustomTest; ... __PACKAGE__->result_source_instance->is_virtual(1); __PACKAGE__->result_source_instance->view_definition("select 2*2 as x" +);
my ($res) = $schema->resultset("CustomTest")->all; print $res->x; # prints 4