From 1269c8b9daf7a7375d1e47722aac587e381bcf2b Mon Sep 17 00:00:00 2001
From: boblied <boblied@gmail.com>
Date: Thu, 10 Sep 2020 05:56:41 -0500
Subject: Set up files

---
 challenge-076/bob-lied/perl/ch-2.pl           |  8 +++---
 challenge-076/bob-lied/perl/lib/Task2.pm      | 38 ---------------------------
 challenge-076/bob-lied/perl/lib/WordSearch.pm | 38 +++++++++++++++++++++++++++
 challenge-076/bob-lied/perl/t/Task2.t         | 14 ----------
 challenge-076/bob-lied/perl/t/WordSearch.t    | 14 ++++++++++
 5 files changed, 56 insertions(+), 56 deletions(-)
 delete mode 100644 challenge-076/bob-lied/perl/lib/Task2.pm
 create mode 100644 challenge-076/bob-lied/perl/lib/WordSearch.pm
 delete mode 100644 challenge-076/bob-lied/perl/t/Task2.t
 create mode 100644 challenge-076/bob-lied/perl/t/WordSearch.t

diff --git a/challenge-076/bob-lied/perl/ch-2.pl b/challenge-076/bob-lied/perl/ch-2.pl
index 6a1a88fe38..c71a430fe1 100755
--- a/challenge-076/bob-lied/perl/ch-2.pl
+++ b/challenge-076/bob-lied/perl/ch-2.pl
@@ -5,7 +5,7 @@
 #=============================================================================
 # Copyright (c) 2020, Bob Lied
 #=============================================================================
-# Perl Weekly Challenge 000 Task #2 > xxx
+# Perl Weekly Challenge 076 Task #2 > Word Search
 #=============================================================================
 
 use strict;
@@ -16,7 +16,7 @@ us feature qw/ signatures /;
 no warnings qw/ experimental::signatures /;
 
 use lib "lib";
-use Task2;
+use WordSearch;
 
 sub Usage { "Usage: $0 args" };
 
@@ -26,6 +26,6 @@ my @list = @ARGV;
 die Usage() unless $arg;
 die Usage() unless @list;
 
-my $task = Task2->new();
-my $result = task->run();
+my $task = WordSearch->new();
+my $result = WordSearch->run();
 say $result;
diff --git a/challenge-076/bob-lied/perl/lib/Task2.pm b/challenge-076/bob-lied/perl/lib/Task2.pm
deleted file mode 100644
index e210edb216..0000000000
--- a/challenge-076/bob-lied/perl/lib/Task2.pm
+++ /dev/null
@@ -1,38 +0,0 @@
-# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
-#=============================================================================
-# Task2.pm
-#=============================================================================
-# Copyright (c) 2020, Bob Lied
-#=============================================================================
-# Description:
-#=============================================================================
-
-package Task2;
-
-use strict;
-use warnings;
-
-require Exporter;
-our @ISA = qw(Exporter);
-our @EXPORT = qw();
-our @EXPORT_OK = qw();
-
-sub new
-{
-    my $class = shift;
-    $class = ref($class) || $class;
-    my $self = {
-        _name1 => $_[0],
-    };
-    bless $self, $class;
-    return $self;
-}
-
-sub run
-{
-    my $self = shift;
-    return undef;
-}
-
-1;
-
diff --git a/challenge-076/bob-lied/perl/lib/WordSearch.pm b/challenge-076/bob-lied/perl/lib/WordSearch.pm
new file mode 100644
index 0000000000..16e8dff435
--- /dev/null
+++ b/challenge-076/bob-lied/perl/lib/WordSearch.pm
@@ -0,0 +1,38 @@
+# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
+#=============================================================================
+# WordSearch.pm
+#=============================================================================
+# Copyright (c) 2020, Bob Lied
+#=============================================================================
+# Description:
+#=============================================================================
+
+package WordSearch;
+
+use strict;
+use warnings;
+
+require Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT = qw();
+our @EXPORT_OK = qw();
+
+sub new
+{
+    my $class = shift;
+    $class = ref($class) || $class;
+    my $self = {
+        _name1 => $_[0],
+    };
+    bless $self, $class;
+    return $self;
+}
+
+sub run
+{
+    my $self = shift;
+    return undef;
+}
+
+1;
+
diff --git a/challenge-076/bob-lied/perl/t/Task2.t b/challenge-076/bob-lied/perl/t/Task2.t
deleted file mode 100644
index ffb1db7c8d..0000000000
--- a/challenge-076/bob-lied/perl/t/Task2.t
+++ /dev/null
@@ -1,14 +0,0 @@
-# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
-#
-#===============================================================================
-# FILE: Task2.t
-# DESCRIPTION: Unit test for Task2
-#===============================================================================
-
-use strict;
-use warnings;
-use v5.30;
-
-use Test2::V0;
-
-done_testing();
diff --git a/challenge-076/bob-lied/perl/t/WordSearch.t b/challenge-076/bob-lied/perl/t/WordSearch.t
new file mode 100644
index 0000000000..de3e308ed6
--- /dev/null
+++ b/challenge-076/bob-lied/perl/t/WordSearch.t
@@ -0,0 +1,14 @@
+# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
+#
+#===============================================================================
+# FILE: WordSearch.t
+# DESCRIPTION: Unit test for WordSearch
+#===============================================================================
+
+use strict;
+use warnings;
+use v5.30;
+
+use Test2::V0;
+
+done_testing();
-- 
cgit