From edfefe8fd966607f0466b174a86623d721067edf Mon Sep 17 00:00:00 2001 From: boblied Date: Mon, 14 Sep 2020 16:10:18 -0500 Subject: Update package names --- challenge-078/bob-lied/README | 4 +-- challenge-078/bob-lied/perl/ch-1.pl | 4 +-- challenge-078/bob-lied/perl/ch-2.pl | 4 +-- challenge-078/bob-lied/perl/lib/LeaderElement.pm | 39 ++++++++++++++++++++++++ challenge-078/bob-lied/perl/lib/LeftRotation.pm | 39 ++++++++++++++++++++++++ challenge-078/bob-lied/perl/lib/Task1.pm | 39 ------------------------ challenge-078/bob-lied/perl/lib/Task2.pm | 39 ------------------------ challenge-078/bob-lied/perl/t/LeaderElement.t | 20 ++++++++++++ challenge-078/bob-lied/perl/t/LeftRotation.t | 20 ++++++++++++ challenge-078/bob-lied/perl/t/Task1.t | 14 --------- challenge-078/bob-lied/perl/t/Task2.t | 14 --------- 11 files changed, 124 insertions(+), 112 deletions(-) create mode 100644 challenge-078/bob-lied/perl/lib/LeaderElement.pm create mode 100644 challenge-078/bob-lied/perl/lib/LeftRotation.pm delete mode 100644 challenge-078/bob-lied/perl/lib/Task1.pm delete mode 100644 challenge-078/bob-lied/perl/lib/Task2.pm create mode 100644 challenge-078/bob-lied/perl/t/LeaderElement.t create mode 100644 challenge-078/bob-lied/perl/t/LeftRotation.t delete mode 100644 challenge-078/bob-lied/perl/t/Task1.t delete mode 100644 challenge-078/bob-lied/perl/t/Task2.t 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/LeaderElement.pm b/challenge-078/bob-lied/perl/lib/LeaderElement.pm new file mode 100644 index 0000000000..0d1022a284 --- /dev/null +++ b/challenge-078/bob-lied/perl/lib/LeaderElement.pm @@ -0,0 +1,39 @@ +# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: +#============================================================================= +# LeaderElement.pm +#============================================================================= +# Copyright (c) 2020, Bob Lied +#============================================================================= +# Description: +#============================================================================= + +package LeaderElement; + +use strict; +use warnings; +use v5.30; + +use feature qw/ signatures /; +no warnings qw/ experimental::signatures /; + +require Exporter; +our @ISA = qw(Exporter); +our @EXPORT = qw(); +our @EXPORT_OK = qw(); + +sub new($class, $name1) +{ + $class = ref($class) || $class; + my $self = { + _name1 => $name1, + }; + bless $self, $class; + return $self; +} + +sub run($self) +{ + return undef; +} + +1; diff --git a/challenge-078/bob-lied/perl/lib/LeftRotation.pm b/challenge-078/bob-lied/perl/lib/LeftRotation.pm new file mode 100644 index 0000000000..8a10325a5d --- /dev/null +++ b/challenge-078/bob-lied/perl/lib/LeftRotation.pm @@ -0,0 +1,39 @@ +# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: +#============================================================================= +# LeftRotation.pm +#============================================================================= +# Copyright (c) 2020, Bob Lied +#============================================================================= +# Description: +#============================================================================= + +package LeftRotation; + +use strict; +use warnings; +use v5.30; + +use feature qw/ signatures /; +no warnings qw/ experimental::signatures /; + +require Exporter; +our @ISA = qw(Exporter); +our @EXPORT = qw(); +our @EXPORT_OK = qw(); + +sub new($class, $name1) +{ + $class = ref($class) || $class; + my $self = { + _name1 => $name1, + }; + bless $self, $class; + return $self; +} + +sub run($self) +{ + return undef; +} + +1; diff --git a/challenge-078/bob-lied/perl/lib/Task1.pm b/challenge-078/bob-lied/perl/lib/Task1.pm deleted file mode 100644 index 4bcf27f833..0000000000 --- a/challenge-078/bob-lied/perl/lib/Task1.pm +++ /dev/null @@ -1,39 +0,0 @@ -# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: -#============================================================================= -# Task1.pm -#============================================================================= -# Copyright (c) 2020, Bob Lied -#============================================================================= -# Description: -#============================================================================= - -package Task1; - -use strict; -use warnings; -use v5.30; - -use feature qw/ signatures /; -no warnings qw/ experimental::signatures /; - -require Exporter; -our @ISA = qw(Exporter); -our @EXPORT = qw(); -our @EXPORT_OK = qw(); - -sub new($class, $name1) -{ - $class = ref($class) || $class; - my $self = { - _name1 => $name1, - }; - bless $self, $class; - return $self; -} - -sub run($self) -{ - return undef; -} - -1; diff --git a/challenge-078/bob-lied/perl/lib/Task2.pm b/challenge-078/bob-lied/perl/lib/Task2.pm deleted file mode 100644 index 7834e69ba8..0000000000 --- a/challenge-078/bob-lied/perl/lib/Task2.pm +++ /dev/null @@ -1,39 +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; -use v5.30; - -use feature qw/ signatures /; -no warnings qw/ experimental::signatures /; - -require Exporter; -our @ISA = qw(Exporter); -our @EXPORT = qw(); -our @EXPORT_OK = qw(); - -sub new($class, $name1) -{ - $class = ref($class) || $class; - my $self = { - _name1 => $name1, - }; - bless $self, $class; - return $self; -} - -sub run($self) -{ - return undef; -} - -1; diff --git a/challenge-078/bob-lied/perl/t/LeaderElement.t b/challenge-078/bob-lied/perl/t/LeaderElement.t new file mode 100644 index 0000000000..cdb83d2a79 --- /dev/null +++ b/challenge-078/bob-lied/perl/t/LeaderElement.t @@ -0,0 +1,20 @@ +# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: +# +#=============================================================================== +# FILE: LeaderElement.t +# DESCRIPTION: Unit test for LeaderElement +#=============================================================================== + +use strict; +use warnings; +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/LeftRotation.t b/challenge-078/bob-lied/perl/t/LeftRotation.t new file mode 100644 index 0000000000..d695462c45 --- /dev/null +++ b/challenge-078/bob-lied/perl/t/LeftRotation.t @@ -0,0 +1,20 @@ +# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: +# +#=============================================================================== +# FILE: LeftRotation.t +# DESCRIPTION: Unit test for LeftRotation +#=============================================================================== + +use strict; +use warnings; +use v5.30; + +use Test2::V0; + +use lib "lib"; +use LeftRotation; + +my $t = LeftRotation->new(); +isa_ok($t, [ "LeftRotation" ], "Constructor"); + +done_testing(); diff --git a/challenge-078/bob-lied/perl/t/Task1.t b/challenge-078/bob-lied/perl/t/Task1.t deleted file mode 100644 index 51dd7729c0..0000000000 --- a/challenge-078/bob-lied/perl/t/Task1.t +++ /dev/null @@ -1,14 +0,0 @@ -# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu: -# -#=============================================================================== -# FILE: Task1.t -# DESCRIPTION: Unit test for Task1 -#=============================================================================== - -use strict; -use warnings; -use v5.30; - -use Test2::V0; - -done_testing(); diff --git a/challenge-078/bob-lied/perl/t/Task2.t b/challenge-078/bob-lied/perl/t/Task2.t deleted file mode 100644 index ffb1db7c8d..0000000000 --- a/challenge-078/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(); -- cgit