Various things

.gitignore

@@ -0,0 +1 @@
+*.sw?

README.md

@@ -0,0 +1,4 @@
+# Hush in Perl
+
+    hushlist new listname
+    hushlist send

bin/hushlist

@@ -4,6 +4,7 @@ use warnings;
 use Try::Tiny;
 use lib 'lib';
 use Hush::List;
+use Hush::Util qw/barf/;
 use Data::Dumper;
 
 # we only need one

lib/Hush/Contact.pm

@@ -0,0 +1,6 @@
+package Hush::Contact;
+use strict;
+use warnings;
+use Hush::Util qw/barf/;
+
+1;

lib/Hush/List.pm

@@ -5,8 +5,7 @@ use Hush::RPC;
 use Try::Tiny;
 use File::Spec::Functions;
 use Carp qw/longmess/;
-
-sub barf { die longmess(@_) }
+use Hush::Util qw/barf/;
 
 our $VERSION = 20171031;
 

lib/Hush/Messenger.pm

@@ -0,0 +1,5 @@
+package Hush::Messenger;
+use strict;
+use warnings;
+use Try::Tiny;
+1;

lib/Hush/Util.pm

@@ -0,0 +1,17 @@
+package Hush::Util;
+use strict;
+use warnings;
+use Exporter 'import';
+use Carp qw/longmess/;
+our @EXPORT_OK = qw/ barf timing now/;
+use Time::HiRes qw/gettimeofday tv_interval/;
+
+sub now { [gettimeofday] }
+sub barf { die longmess(@_); }
+
+sub timing {
+    my ($t0,$t1) = @_;
+    return sprintf "%1.4f", tv_interval($t0,$t1);
+}
+
+1;

t/00-load.t

@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+use_ok("Hush");
+use_ok("Hush::List");
+use_ok("Hush::Messenger");
+
+done_testing;