#!/usr/bin/env perl

use warnings;
use strict;
use lib '../../lib';

use File::Temp 'tempfile';
use Log::Report mode => 'DEBUG';

my ($fh, $filename) = tempfile();
chmod 0, $filename;

dispatcher FILE => 'b0rked', to => $filename;

#warn $_->name for grep $_->name ne 'b0rked', dispatcher 'list';

info 'Whee!';
