Update package names

7 files changed, 26 insertions, 14 deletions

diff --git a/challenge-078/bob-lied/README b/challenge-078/bob-lied/README
index 9deeb88045..ac3ae94c19 100644
--- a/challenge-078/bob-lied/README
+++ b/challenge-078/bob-lied/README
@@ -1,3 +1,3 @@
-Solutions to weekly challenge 77 by Bob Lied.
+Solutions to weekly challenge 78 by Bob Lied.
 
-https://perlweeklychallenge.org/blog/perl-weekly-challenge-077/
+https://perlweeklychallenge.org/blog/perl-weekly-challenge-078/
diff --git a/challenge-078/bob-lied/perl/ch-1.pl b/challenge-078/bob-lied/perl/ch-1.pl
index 60c4d60385..15ee8dd29b 100755
--- a/challenge-078/bob-lied/perl/ch-1.pl
+++ b/challenge-078/bob-lied/perl/ch-1.pl
@@ -25,7 +25,7 @@ no warnings qw/ experimental::signatures /;
 use Getopt::Long;
 
 use lib "lib";
-use Task1;
+use LeaderElement;
 
 sub Usage { "Usage: $0 args" };
 
@@ -38,6 +38,6 @@ my @list = @ARGV;
 die Usage() unless $arg;
 die Usage() unless @list;
 
-my $task = Task1->new();
+my $task = LeaderElement->new();
 my $result = $task->run();
 say $result;
diff --git a/challenge-078/bob-lied/perl/ch-2.pl b/challenge-078/bob-lied/perl/ch-2.pl
index 8546c00515..cf084f0940 100755
--- a/challenge-078/bob-lied/perl/ch-2.pl
+++ b/challenge-078/bob-lied/perl/ch-2.pl
@@ -38,7 +38,7 @@ no warnings qw/ experimental::signatures /;
 use Getopt::Long;
 
 use lib "lib";
-use Task2;
+use LeftRotation;
 
 sub Usage { "Usage: $0 args" };
 
@@ -51,6 +51,6 @@ my @list = @ARGV;
 die Usage() unless $arg;
 die Usage() unless @list;
 
-my $task = Task2->new();
+my $task = LeftRotation->new();
 my $result = $task->run();
 say $result;
diff --git a/challenge-078/bob-lied/perl/lib/Task2.pm b/challenge-078/bob-lied/perl/lib/LeaderElement.pm
index 7834e69ba8..0d1022a284 100644
--- a/challenge-078/bob-lied/perl/lib/Task2.pm
+++ b/challenge-078/bob-lied/perl/lib/LeaderElement.pm
@@ -1,13 +1,13 @@
 # vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
 #=============================================================================
-# Task2.pm
+# LeaderElement.pm
 #=============================================================================
 # Copyright (c) 2020, Bob Lied
 #=============================================================================
 # Description:
 #=============================================================================
 
-package Task2;
+package LeaderElement;
 
 use strict;
 use warnings;
diff --git a/challenge-078/bob-lied/perl/lib/Task1.pm b/challenge-078/bob-lied/perl/lib/LeftRotation.pm
index 4bcf27f833..8a10325a5d 100644
--- a/challenge-078/bob-lied/perl/lib/Task1.pm
+++ b/challenge-078/bob-lied/perl/lib/LeftRotation.pm
@@ -1,13 +1,13 @@
 # vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
 #=============================================================================
-# Task1.pm
+# LeftRotation.pm
 #=============================================================================
 # Copyright (c) 2020, Bob Lied
 #=============================================================================
 # Description:
 #=============================================================================
 
-package Task1;
+package LeftRotation;
 
 use strict;
 use warnings;
diff --git a/challenge-078/bob-lied/perl/t/Task2.t b/challenge-078/bob-lied/perl/t/LeaderElement.t
index ffb1db7c8d..cdb83d2a79 100644
--- a/challenge-078/bob-lied/perl/t/Task2.t
+++ b/challenge-078/bob-lied/perl/t/LeaderElement.t
@@ -1,8 +1,8 @@
 # vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
 #
 #===============================================================================
-# FILE: Task2.t
-# DESCRIPTION: Unit test for Task2
+# FILE: LeaderElement.t
+# DESCRIPTION: Unit test for LeaderElement
 #===============================================================================
 
 use strict;
@@ -11,4 +11,10 @@ use v5.30;
 
 use Test2::V0;
 
+use lib "lib";
+use LeaderElement;
+
+my $t = LeaderElement->new();
+isa_ok($t, [ "LeaderElement" ], "Constructor");
+
 done_testing();
diff --git a/challenge-078/bob-lied/perl/t/Task1.t b/challenge-078/bob-lied/perl/t/LeftRotation.t
index 51dd7729c0..d695462c45 100644
--- a/challenge-078/bob-lied/perl/t/Task1.t
+++ b/challenge-078/bob-lied/perl/t/LeftRotation.t
@@ -1,8 +1,8 @@
 # vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
 #
 #===============================================================================
-# FILE: Task1.t
-# DESCRIPTION: Unit test for Task1
+# FILE: LeftRotation.t
+# DESCRIPTION: Unit test for LeftRotation
 #===============================================================================
 
 use strict;
@@ -11,4 +11,10 @@ use v5.30;
 
 use Test2::V0;
 
+use lib "lib";
+use LeftRotation;
+
+my $t = LeftRotation->new();
+isa_ok($t, [ "LeftRotation" ], "Constructor");
+
 done_testing();