Mojo Promise Map Concept

promise.pl

 # inside my mojo route...
 
 my $result = $library->run_object_method_that_runs_mojo_promise_map();          
                                                                      
 if ( Scalar::Util::blessed( $result ) && $result->isa( 'Mojo::Promise' ) )
 {                                                                    
    $c->render_later();
    
    my $start = scalar localtime;                                     
                                                                      
    return $result->then                                                      
    (                                                                 
       sub                                                            
       {                                                              
          my $json =                                                  
          {                                                           
             start  => $start,                                        
             finish => scalar localtime,                              
             result => [ @_ ]                                         
          };                                                          
                                                                      
          $c->respond_to( any => { json => $json, status => 200 } )   
       },                                                             
       sub                                                            
       {
          my $json = { errors => [ @_ ] };
          
          $c->respond_to( any => { json => $json, status => 500 } )                       
       },                                                             
    );                                                                
 }                                                                    
 else                                                                 
 {                                                                    
    $c->respond_to( any => { json => $result, status => 200 } );      
    
    return
 }