jjn1056

use Test::Most;
use Devel::Dwarn;

{
  package Valiant::Scalar;

  use Moo::Role;

  our $rules_initialized = 0;
  our @rules =();

jjn1056

X-Apparently-To: jjn1056@yahoo.com; Wed, 07 Aug 2019 01:32:58 +0000
Return-Path: <no-reply@catme.org>
Authentication-Results: mta4190.mail.ne1.yahoo.com; 
 dkim=neutral (no sig) header.i=@catme.org;
 spf=fail smtp.mailfrom=@catme.org;
 dmarc=NULL(p=NULL sp=NULL dis=NULL) header.from=catme.org;
X-YahooFilteredBulk: 108.198.161.166
Received-SPF: fail (domain of catme.org does not designate 108.198.161.166 as permitted sender)
X-YMailISG: tg6NnfsWLDvWWh6mwvwhcKF3FyJGtbAbGZnPLwWj6wcZp8_C
 43FJTqRtaxULmVwPoEvQQOqOiLpBTfjF6W6vR64d6CgrsC7k_aqRLg23m7qL

jjn1056

==> /var/log/httpd/error_log <==
ENVELOPE TO  : jjn1056@yahoo.com
ENVELOPE FROM: no-reply@catme.org
---------- begin message
Date: Tue, 6 Aug 2019 20:35:59 -0500
MIME-Version: 1.0
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable
Subject: Welcome to CATME - Please Read 17
From: "CATME Team Tools" <no-reply@catme.org>

jjn1056

MIME-Version: 1.0
From: john napiorkowski <jjn1056@gmail.com>
Date: Tue, 6 Aug 2019 19:32:52 -0500
Message-ID: <CAMF3Vngj9ie7Z6Kr2foHU2wX_2dCDV_3YAakZejmF8Db+Z2K5A@mail.gmail.com>
Subject: test
To: jnapiorkowski@mediamath.com
Content-Type: multipart/alternative; boundary="000000000000da2ed9058f7c152a"
Bcc: jjn1056@yahoo.com
Content-Length: 267

jjn1056

$c->req->data('name', 'Invalid Name')
  ->exists
  ->defined
  ->size(3,10)
  ->json(',num')

$c->res->http_ok->json($data);

jjn1056

package MyApp::User {

  use Moo;
  # Decorate this with validation and Schema
  has ['name', 'age'] => (is=>'ro', required);

}

use MyApp::User;

jjn1056

use GraphQL::Type::Scalar qw($String);

my $type = GraphQL::Type::Object->new(
  name => 'Object',  
  fields => {
    field_name => { 
      type => $String,
      directives => [
        {
             name => 'isAuthorized',

jjn1056

ub rebuild_schema {
  my ($proto) = @_;
  my $class = ref $proto || $proto;
  my $target_dir = File::Spec->rel2abs(join '', (File::Spec->splitpath(__FILE__))[0, 1]);
  my $tables = join('|', @TABLES);
  my $constraint = qr/\A(?:$tables)\z/x;
  my @args = (
    $class,
    {
      debug => $ENV{CATME_SCHEMA_LOADER_DEBUG}||0,

jjn1056

with demo_surveys as (
  select distinct s.survey_id
  from survey s
  join team t on t.survey_id=s.survey_id
  join person student on student.person_id=t.person_id
  where substring(student.email from '@(.+)$') = 'sysiphus.com'
  group by s.survey_id),
demos as (select
  ds.survey_id,
  CASE

jjn1056

catme=> select
catme->   CASE
catme->     WHEN COALESCE(name, school) = '' THEN 'EMPTY STRING'
catme->     WHEN COALESCE(name, school) = NULL THEN 'NULL1'
catme->     WHEN COALESCE(name, school) IS NULL THEN 'NULL2'
catme->     ELSE COALESCE(name, school)
catme->   END as institution
catme-> from (
catme(>   SELECT 'name' as name, 'school' as school
catme(>   UNION ALL