view release on metacpan or  search on metacpan

t/94-blob-compare.t  view on Meta::CPAN

      c  => { data_type => 'varchar', size => 20 },
      s  => { data_type => 'string' },
    };
  }
}

{
  package T::Maker;
  sub new { my ($c, $sql, @bind) = @_; bless { sql => $sql, bind => \@bind }, $c }
  sub select { my $s = shift; return ($s->{sql}, @{ $s->{bind} }) }
  sub update { my $s = shift; return ($s->{sql}, @{ $s->{bind} }) }
}

my %SUB;
sub gen {
  my ($class, $op, $sql, @bind) = @_;
  my $sub = $SUB{$class} ||= do {
    (my $name = "T::Storage::$class") =~ s/::/_/g;
    $name = "T::$name";
    eval qq{package $name; use mro 'c3'; our \@ISA = ('$class'); sub sql_maker { \$_[0]{_sql_maker} } 1 }
      or die $@;