choreographer

#!/usr/bin/perl

eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
    if 0; # not running under some shell

use lib 'local/lib/perl5'; # TODO: Convert to local::lib
use lib 'lib';

use strict;
use warnings;

use Dancer::Choreographer;
use Term::ANSIColor qw(:constants);
use Getopt::Long;

Getopt::Long::Configure('bundling');
my $json_file = '';
GetOptions( 'json|f=s', \$json_file )
or die("Error in command line arguments\n");

setting_the_stage();

# Get json string;
my $json = '';

# If file exists slurp
if (-f $json_file) {
   open my $json_fh, "<", $json_file or die $!;
   {
      local $/;
      $json = <$json_fh>;
   }
   close $json_fh;
} else {
   $json = $json_file;
}

my $msgs = choreograph($json);


if (@{ $msgs->{'success'} }) {
   #print "Success:\n";
   foreach my $msg ( @{ $msgs->{'success'} } ) {
      print GREEN, $msg."\n", RESET;
   }
}
if (@{ $msgs->{'errors'} }) {
   #print "Errors:\n";
   foreach my $msg ( @{ $msgs->{'errors'} } ) {
      print RED, $msg."\n", RESET;
   }
}
if (@{ $msgs->{'output'} }) {
   print "Output:\n";
   foreach my $msg ( @{ $msgs->{'output'} } ) {
      print $msg."\n";
   }
}
1;

__END__

Example Json
'[
          {
            "models" : [
                          {
                            "readable_name" : "Test",
                            "write_file" : 1,
                            "table_name" : "test",
                            "attributes" : [
                                              {
                                                "inline" : 0,
                                                "options" : [],
                                                "order" : "0",
                                                "static_label" : 0,
                                                "type" : "text",
                                                "label" : "Test",
                                                "max_length" : 32,
                                                "mandatory" : 0
                                              },
                                              {
                                                "inline" : 0,
                                                "options" : [],
                                                "order" : "1",
                                                "static_label" : 0,
                                                "type" : "email",
                                                "label" : "Email",
                                                "max_length" : 64,
                                                "mandatory" : 0
                                              },
                                              {
                                                "inline" : 0,
                                                "options" : [
                                                               "Male",
                                                               "Female"
                                                             ],
                                                "order" : "2",
                                                "static_label" : 0,
                                                "type" : "radio",
                                                "label" : "Gender",
                                                "mandatory" : 1,
                                                "max_length" : 16
                                              }
                                            ],
                            "overlay" : ""
                          }
                        ],
            "settings" : {
                            "app_path" : "/Users/seanzellmer/Apps/Demo/",
                            "app_name" : "Demo",
                            "write_files" : 1,
                            "overwrite" : 1,
                            "module_only": 1
                          }
          }
        ]'