view release on metacpan or  search on metacpan

lib/Cheater/AST.pm  view on Meta::CPAN

package Cheater::AST;

use 5.010000;
use Moose;
use Clone qw(clone);

sub process_table ($$$$$$$);

has 'goals' => (is => 'ro', isa => 'HashRef');
has 'cols' => (is => 'ro', isa => 'HashRef');
has 'deps' => (is => 'ro', isa => 'HashRef');
has 'types' => (is => 'ro', isa => 'HashRef');
has 'tables' => (is => 'ro', isa => 'HashRef');
has 'col_clones' => (is => 'ro', isa => 'HashRef');

around BUILDARGS => sub {
    my $orig = shift;
    my $class = shift;

    my $parse_tree = shift;

    #warn "BUILDARGS";

    my (%tables, %cols, %deps, %goals, %types, %col_clones);

lib/Cheater/Eval.pm  view on Meta::CPAN

use Parse::RandGen::Regexp ();
use Scalar::Util qw( looks_like_number );
use Cheater::Util qw( quote_sql_str );

sub get_today ();

our $NowDate = 'now';
our $NowDatetime = 'now';

has 'ast' => (is => 'ro', isa => 'Cheater::AST');
has '_samples' => (is => 'ro', isa => 'HashRef');
has '_cols_visited' => (is => 'ro', isa => 'HashRef');

sub pick_elems ($$$);

sub gen_txt_col ($$$$$$$);
sub gen_num_col ($$$$$$);
sub gen_domain_val ($);

sub gen_int ($);
sub gen_real ($);