view release on metacpan or  search on metacpan

lib/Dancer2/Plugin/DoFile.pm  view on Meta::CPAN

                  my $start = time();
                  $result = $result->($args);
                  $stash->{dofiles}->{$cururl.$m.$acceptext->{$fmt}.$ext}->{time} = time() - $start;
                } else {
                  $result = $result->($args);
                }
              }
            }

            if (defined $result && ref $result eq 'HASH') {
              $result->{'content-type'} = $acceptext->{$fmt};
              $stash->{dofiles}->{$cururl.$m.$acceptext->{$fmt}.$ext}->{last} = 1;
              return $result;

            } elsif (ref $result eq 'ARRAY') {
              $stash->{dofiles}->{$cururl.$m.$acceptext->{$fmt}.$ext}->{last} = 1;
              return { 'content-type' => $acceptext->{$fmt}, content => $result };

            } elsif (!ref $result && $result) {
              # do we assume this is HTML? Or a file to use in templating? Who knows!
              $stash->{dofiles}->{$cururl.$m.$acceptext->{$fmt}.$ext}->{last} = 1;
              return { 'content-type' => $acceptext->{$fmt}, content => $result };

            }
          }
        }
      }
    }
  }

  # If we got here we didn't find a do file that returned some content
  return { status => 404 };