Dogcows Code - chaz/talk-event-driven-programming-in-perl/blob - img/eventloop.dot

   1
   2 digraph G {
   3     rankdir = LR
   4
   5     node
   6     [
   7         fontname    = "Inconsolata"
   8         fontsize    = 20
   9         shape       = record
  10         style       = rounded
  11         margin      = "0.2,0.2"
  12     ]
  13
  14     edge
  15     [
  16         fontname    = "Inconsolata"
  17         fontsize    = 18
  18         arrowhead   = vee
  19         arrowtail   = vee
  20         arrowsize   = 2
  21     ]
  22
  23     "Event source 1" -> "Wait for\nan event\nto happen"
  24     "Event source 2" -> "Wait for\nan event\nto happen"
  25     "Event source N" -> "Wait for\nan event\nto happen"
  26
  27     "Wait for\nan event\nto happen" -> "Handle an\nevent" [label="Something happened...\n", tailport="n", headport="n"]
  28     "Handle an\nevent" -> "Wait for\nan event\nto happen" [tailport="s", headport="s"]
  29 }
  30