From a5309b3230b957cb0ee672b6d44f38ef63302b27 Mon Sep 17 00:00:00 2001
From: cono <q@cono.org.ua>
Date: Fri, 14 Jul 2017 16:27:14 +0300
Subject: [PATCH] Add Perl6 version

---
 .gitignore                |  1 +
 perl6/lib/GildedRose.pm6  | 66 ++++++++++++++++++++++++++++++++++++
 perl6/lib/Item.pm6        | 11 ++++++
 perl6/test.p6             | 16 +++++++++
 perl6/texttest_fixture.p6 | 70 +++++++++++++++++++++++++++++++++++++++
 5 files changed, 164 insertions(+)
 create mode 100644 perl6/lib/GildedRose.pm6
 create mode 100644 perl6/lib/Item.pm6
 create mode 100755 perl6/test.p6
 create mode 100755 perl6/texttest_fixture.p6

diff --git a/.gitignore b/.gitignore
index cbda76fc..b56f217b 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,2 +1,3 @@
 .idea/workspace.xml
 *.pyc
+/perl6/lib/.precomp
diff --git a/perl6/lib/GildedRose.pm6 b/perl6/lib/GildedRose.pm6
new file mode 100644
index 00000000..eae84d95
--- /dev/null
+++ b/perl6/lib/GildedRose.pm6
@@ -0,0 +1,66 @@
+use v6;
+
+use Item;
+
+class GildedRose {
+    has Item @.items;
+
+    method update_quality {
+	for @!items -> $item {
+	    if ($item.name ne 'Aged Brie' && $item.name ne 'Backstage passes to a TAFKAL80ETC concert') {
+		if ( $item.quality > 0 ) {
+		    if ( $item.name ne 'Sulfuras, Hand of Ragnaros' ) {
+			$item.quality = $item.quality - 1;
+		    }
+		}
+	    }
+	    else {
+		if ( $item.quality < 50 ) {
+		    $item.quality = $item.quality + 1;
+
+		    if ( $item.name eq 'Backstage passes to a TAFKAL80ETC concert' )
+		    {
+			if ( $item.sell_in < 11 ) {
+			    if ( $item.quality < 50 ) {
+				$item.quality = $item.quality + 1;
+			    }
+			}
+
+			if ( $item.sell_in < 6 ) {
+			    if ( $item.quality < 50 ) {
+				$item.quality = $item.quality + 1;
+			    }
+			}
+		    }
+		}
+	    }
+
+	    if ( $item.name ne 'Sulfuras, Hand of Ragnaros' ) {
+		$item.sell_in = $item.sell_in - 1;
+	    }
+
+	    if ( $item.sell_in < 0 ) {
+		if ( $item.name ne 'Aged Brie' ) {
+		    if ( $item.name ne
+		    'Backstage passes to a TAFKAL80ETC concert' )
+		    {
+			if ( $item.quality > 0 ) {
+			    if ( $item.name ne 'Sulfuras, Hand of Ragnaros' ) {
+				$item.quality = $item.quality - 1;
+			    }
+			}
+		    }
+		    else {
+			$item.quality = $item.quality - $item.quality;
+		    }
+		}
+		else {
+		    if ( $item.quality < 50 ) {
+			$item.quality = $item.quality + 1;
+		    }
+		}
+	    }
+	}
+	return;
+    }
+};
diff --git a/perl6/lib/Item.pm6 b/perl6/lib/Item.pm6
new file mode 100644
index 00000000..d2e5dd1a
--- /dev/null
+++ b/perl6/lib/Item.pm6
@@ -0,0 +1,11 @@
+use v6;
+
+class Item {
+    has Str $.name;
+    has Int $.sell_in is rw = 0;
+    has Int $.quality is rw = 0;
+
+    method Str {
+	"{$!name}, {$!sell_in}, {$!quality}"
+    }
+};
diff --git a/perl6/test.p6 b/perl6/test.p6
new file mode 100755
index 00000000..5bb61261
--- /dev/null
+++ b/perl6/test.p6
@@ -0,0 +1,16 @@
+#!/usr/bin/env perl6
+
+use v6;
+use Test;
+use lib 'lib';
+
+use GildedRose;
+use Item;
+
+my $item = Item.new(:name<foo>);
+my $app = GildedRose.new(items => ($item));
+
+$app.update_quality();
+is $app.items[0].name, 'fixme', "first day pass";
+
+done-testing;
diff --git a/perl6/texttest_fixture.p6 b/perl6/texttest_fixture.p6
new file mode 100755
index 00000000..d3e405d7
--- /dev/null
+++ b/perl6/texttest_fixture.p6
@@ -0,0 +1,70 @@
+#!/usr/bin/env perl6
+
+use v6;
+
+use lib 'lib';
+
+use GildedRose;
+use Item;
+
+print 'OMGHAI!', "\n";
+my @items = (
+    Item.new(
+        name    => '+5 Dexterity Vest',
+        sell_in => 10,
+        quality => 20
+    ),
+    Item.new(
+        name    => 'Aged Brie',
+        sell_in => 2,
+        quality => 0
+    ),
+    Item.new(
+        name    => 'Elixir of the Mongoose',
+        sell_in => 5,
+        quality => 7
+    ),
+    Item.new(
+        name    => 'Sulfuras, Hand of Ragnaros',
+        sell_in => 0,
+        quality => 80
+    ),
+    Item.new(
+        name    => 'Sulfuras, Hand of Ragnaros',
+        sell_in => -1,
+        quality => 80
+    ),
+    Item.new(
+        name    => 'Backstage passes to a TAFKAL80ETC concert',
+        sell_in => 15,
+        quality => 20
+    ),
+    Item.new(
+        name    => 'Backstage passes to a TAFKAL80ETC concert',
+        sell_in => 10,
+        quality => 49
+    ),
+    Item.new(
+        name    => 'Backstage passes to a TAFKAL80ETC concert',
+        sell_in => 5,
+        quality => 49
+    ),
+    Item.new(    # This Conjured item does not work properly yet
+        name    => 'Conjured Mana Cake',
+        sell_in => 3,
+        quality => 6
+    ),
+);
+
+sub MAIN(Int $days = 2) {
+    my $gilded-rose = GildedRose.new( items => @items );
+    for ^$days -> $day {
+        say "-------- day $day --------";
+        say 'name, sellIn, quality';
+
+        .Str.say for $gilded-rose.items;
+
+	"".say;
+	$gilded-rose.update_quality();
+    }
+}