Install solution template

6 files changed, 166 insertions, 0 deletions

diff --git a/challenge-076/bob-lied/perl/ch-1.pl b/challenge-076/bob-lied/perl/ch-1.pl
new file mode 100644
index 0000000000..b02867877d
--- /dev/null
+++ b/challenge-076/bob-lied/perl/ch-1.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
+#=============================================================================
+# ch-2.pl
+#=============================================================================
+# Copyright (c) 2020, Bob Lied
+#=============================================================================
+# Perl Weekly Challenge 000 Task #1 > xxx
+#=============================================================================
+
+use strict;
+use warnings;
+use v5.30;
+
+us feature qw/ signatures /;
+no warnings qw/ experimental::signatures /;
+
+use lib "lib";
+use Task1;
+
+sub Usage { "Usage: $0 args" };
+
+my $arg = shift;
+my @list = @ARGV;
+
+die Usage() unless $arg;
+die Usage() unless @list;
+
+my $task = Task1->new();
+my $result = task->run();
+say $result;
diff --git a/challenge-076/bob-lied/perl/ch-2.pl b/challenge-076/bob-lied/perl/ch-2.pl
new file mode 100644
index 0000000000..6a1a88fe38
--- /dev/null
+++ b/challenge-076/bob-lied/perl/ch-2.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
+#=============================================================================
+# ch-2.pl
+#=============================================================================
+# Copyright (c) 2020, Bob Lied
+#=============================================================================
+# Perl Weekly Challenge 000 Task #2 > xxx
+#=============================================================================
+
+use strict;
+use warnings;
+use v5.30;
+
+us feature qw/ signatures /;
+no warnings qw/ experimental::signatures /;
+
+use lib "lib";
+use Task2;
+
+sub Usage { "Usage: $0 args" };
+
+my $arg = shift;
+my @list = @ARGV;
+
+die Usage() unless $arg;
+die Usage() unless @list;
+
+my $task = Task2->new();
+my $result = task->run();
+say $result;
diff --git a/challenge-076/bob-lied/perl/lib/Task1.pm b/challenge-076/bob-lied/perl/lib/Task1.pm
new file mode 100644
index 0000000000..13e942cf56
--- /dev/null
+++ b/challenge-076/bob-lied/perl/lib/Task1.pm
@@ -0,0 +1,38 @@
+# 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;
+
+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/Task2.pm b/challenge-076/bob-lied/perl/lib/Task2.pm
new file mode 100644
index 0000000000..e210edb216
--- /dev/null
+++ b/challenge-076/bob-lied/perl/lib/Task2.pm
@@ -0,0 +1,38 @@
+# 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/t/Task1.t b/challenge-076/bob-lied/perl/t/Task1.t
new file mode 100644
index 0000000000..51dd7729c0
--- /dev/null
+++ b/challenge-076/bob-lied/perl/t/Task1.t
@@ -0,0 +1,14 @@
+# 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-076/bob-lied/perl/t/Task2.t b/challenge-076/bob-lied/perl/t/Task2.t
new file mode 100644
index 0000000000..ffb1db7c8d
--- /dev/null
+++ b/challenge-076/bob-lied/perl/t/Task2.t
@@ -0,0 +1,14 @@
+# 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();