modules are fun

Author: qexk

.proverc

@@ -0,0 +1 @@
+-It/lib

t/00-cli.t

@@ -1,12 +1,7 @@
 use strict;
 use warnings qw\ all \;
+use Bashon;
 use Test::More;
-use Cwd qw\ cwd \;
-
-sub bashon {
-    my $cmd = shift;
-    qx{/usr/bin/env /bin/bash --noprofile --norc -c '. bashon.sh;$cmd'}
-}
 
 is(bashon('printf %s salut'), 'salut', 'sourcing bashon.sh works');
 

t/01-types.t

@@ -1,12 +1,8 @@
 use strict;
 use warnings qw\ all \;
+use Bashon;
 use Test::More;
 
-sub bashon {
-    my $cmd = shift;
-    qx{/usr/bin/env /bin/bash --noprofile --rcfile ../bashon.sh -c '$cmd'}
-}
-
 subtest 'null' => sub {
     plan tests => 1;
 

t/lib/Bashon.pm

@@ -0,0 +1,18 @@
+package Bashon;
+
+use strict;
+use warnings qw\ all \;
+
+BEGIN {
+    require Exporter;
+
+    our @ISA = qw\ Exporter \;
+    our @EXPORT = qw\ bashon \;
+}
+
+our sub bashon {
+    my $cmd = shift;
+    qx{/usr/bin/env /bin/bash --noprofile --norc -c '. bashon.sh;$cmd'}
+}
+
+1;