@@ -5,6 +5,8 @@ dist/
www/assets
data/
blib/
+nytprof/
+nytprof.out
pm_to_blib
pod2htmd.tmp
fgEmojiPicker.js
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+# Really only useful for profiling read routes, which is all I want it for.
+
+use strict;
+use warnings;
+#Grab our custom routes
+use lib 'lib';
+use TCMS;
+my %env = (
+ REQUEST_METHOD => $ARGV[0],
+ PATH_INFO => $ARGV[1],
+ QUERY_STRING => $ARGV[2],
+);
+our $app = \&TCMS::app;
+my $out = $app->(\%env);
+print $out->[2][0];
@@ -0,0 +1,4 @@
+#!/bin/bash
+perl -MDevel::NYTProf call.pl GET /
+nytprofhtml