The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl

use strict;

use Test::More tests => 1;

use Log::Defer::Viz;


print "\n\n" . Log::Defer::Viz::render_timers(timers => [
          [  "download file",
             0.000224,
             0.100655
          ],
          [  "download file",
             0.017314,
             0.060655
          ],
          [  "sent reply",
             0.100663,
             0.100740
          ],
          [ "DB lookup",
             0.032724,
             0.080655
          ],
          [  "cache lookup",
             0.000281,
             0.032386
          ],
          [ "update cache",
             0.032380,
             0.119233
          ],
       ]);

## Exercise old format where timers was a hash:
print "\n\n" . Log::Defer::Viz::render_timers(timers => {
         'blah' => [
            0.123413,
            8.832888,
          ],
         'hello' => [
            0.923413,
            2.293332,
          ],
       });



print "\n\n";


ok(1, 'did a render_timers');