Add Perl6 version

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();
+    }
+}