Merge pull request #17 from EntropyOrg/nb-add-timer

Use Devel::Timer to time prediction

Author: zmughal

lib/AI/TensorFlow/Libtensorflow/Manual/Notebook/InferenceUsingTFHubEnformerGeneExprPredModel.pod

@@ -334,7 +334,7 @@
      "output_type": "stream",
      "text": [
       "Checking with saved_model_cli scan:\n",
-      "MetaGraph with tag set ['serve'] does not contain the default denylisted ops: {'ReadFile', 'WriteFile', 'PrintV2'}\n"
+      "MetaGraph with tag set ['serve'] does not contain the default denylisted ops: {'ReadFile', 'PrintV2', 'WriteFile'}\n"
      ]
     },
     {
@@ -1186,7 +1186,9 @@
    "cell_type": "code",
    "execution_count": 18,
    "id": "5effa39f",
-   "metadata": {},
+   "metadata": {
+    "scrolled": true
+   },
    "outputs": [
     {
      "name": "stderr",
@@ -1197,13 +1199,32 @@
       "    \u001b[0;38;5;104mDims           \u001b[m \u001b[0;38;5;81m[\u001b[m \u001b[0;38;5;209m1\u001b[m \u001b[0;38;5;209m896\u001b[m \u001b[0;38;5;209m5313\u001b[m \u001b[0;38;5;81m]\u001b[m\n",
       "    \u001b[0;38;5;104mNumDims        \u001b[m \u001b[0;38;5;209m3\u001b[m\n",
       "    \u001b[0;38;5;104mElementCount   \u001b[m \u001b[0;38;5;209m4760448\u001b[m\n",
-      "\u001b[0;38;5;81m}\u001b[m\n"
+      "\u001b[0;38;5;81m}\u001b[m\n",
+      "\n",
+      "\n",
+      "Devel::Timer Report -- Total time: 14.5641 secs\n",
+      "Interval  Time    Percent\n",
+      "----------------------------------------------\n",
+      "01 -> 02  14.5634  100.00%  prediction of sequence -> End of prediction of sequence\n",
+      "02 -> 03  0.0007   0.00%  End of prediction of sequence -> END\n",
+      "00 -> 01  0.0000   0.00%  INIT -> prediction of sequence\n"
      ]
     }
    ],
    "source": [
+    "use Devel::Timer;\n",
+    "my $t = Devel::Timer->new;\n",
+    "\n",
+    "$t->mark('prediction of sequence');\n",
+    "\n",
     "my $predictions = $predict_on_batch->( $session, FloatPDLTOTFTensor( $sequence_one_hot ) );\n",
-    "p $predictions;"
+    "\n",
+    "$t->mark('End of prediction of sequence');\n",
+    "\n",
+    "p $predictions;\n",
+    "\n",
+    "$t->mark('END');\n",
+    "$t->report();"
    ]
   },
   {
@@ -2509,7 +2530,9 @@
     "\n",
     "$gp->close;\n",
     "\n",
-    "IPerl->png( bytestream => path($plot_output_path)->slurp_raw );"
+    "if( IN_IPERL ) {\n",
+    "    IPerl->png( bytestream => path($plot_output_path)->slurp_raw );\n",
+    "}"
    ]
   },
   {
@@ -2607,7 +2630,7 @@
    "file_extension": ".pl",
    "mimetype": "text/x-perl",
    "name": "perl",
-   "version": "5.30.0"
+   "version": "5.36.0"
   }
  },
  "nbformat": 4,