From 07dbf3342db050323bf9d7d866bb64071bd27cb7 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 16 Jan 2023 11:54:50 +0100
Subject: Task 2 done plperl

---
 challenge-200/luca-ferrari/postgresql/ch-2.plperl |  3 +--
 challenge-200/luca-ferrari/postgresql/ch-2.sql    | 16 ++++++++++++++++
 2 files changed, 17 insertions(+), 2 deletions(-)
 create mode 100644 challenge-200/luca-ferrari/postgresql/ch-2.sql

diff --git a/challenge-200/luca-ferrari/postgresql/ch-2.plperl b/challenge-200/luca-ferrari/postgresql/ch-2.plperl
index d436feaeee..d30bb62302 100644
--- a/challenge-200/luca-ferrari/postgresql/ch-2.plperl
+++ b/challenge-200/luca-ferrari/postgresql/ch-2.plperl
@@ -11,7 +11,6 @@ pwc200.task2_plperl( int )
 RETURNS text
 AS $CODE$
 
-   use List::MoreUtils qw/zip/;
    my ( $value ) = @_;
 
     my $lcd = [
@@ -119,4 +118,4 @@ AS $CODE$
 
       return $display;
 $CODE$
-LANGUAGE plperlu;
+LANGUAGE plperl;
diff --git a/challenge-200/luca-ferrari/postgresql/ch-2.sql b/challenge-200/luca-ferrari/postgresql/ch-2.sql
new file mode 100644
index 0000000000..0e07041c87
--- /dev/null
+++ b/challenge-200/luca-ferrari/postgresql/ch-2.sql
@@ -0,0 +1,16 @@
+--
+-- Perl Weekly Challenge 200
+-- Task 2
+--
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-200/>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc200;
+
+CREATE OR REPLACE FUNCTION
+pwc200.task2_plpgsql( v int )
+RETURNS text
+AS $CODE$
+   SELECT pwc200.task2_plperl( v );
+$CODE$
+LANGUAGE sql;
-- 
cgit