diff options
| -rw-r--r-- | challenge-076/bob-lied/perl/ch-1.pl | 31 | ||||
| -rw-r--r-- | challenge-076/bob-lied/perl/ch-2.pl | 31 | ||||
| -rw-r--r-- | challenge-076/bob-lied/perl/lib/Task1.pm | 38 | ||||
| -rw-r--r-- | challenge-076/bob-lied/perl/lib/Task2.pm | 38 | ||||
| -rw-r--r-- | challenge-076/bob-lied/perl/t/Task1.t | 14 | ||||
| -rw-r--r-- | challenge-076/bob-lied/perl/t/Task2.t | 14 |
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(); |