Add Perl 5 implementation

perl/GildedRose.pm

@@ -0,0 +1,74 @@
+package GildedRose;
+
+use strict;
+use warnings;
+
+sub new {
+    my ( $class, %attrs ) = @_;
+    return bless \%attrs, $class;
+}
+
+sub update_quality {
+    my $self = shift;
+    for my $item ( @{ $self->{items} } ) {
+        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;
+}
+
+1;

perl/Item.pm

@@ -0,0 +1,16 @@
+package Item;
+
+use strict;
+use warnings;
+
+sub new {
+    my ( $class, %attrs ) = @_;
+    return bless \%attrs, $class;
+}
+
+sub _data_printer {    ## no critic (ProhibitUnusedPrivateSubroutines)
+    my ( $self, $properties ) = @_;
+    return $self->{name} . ', ' . $self->{sell_in} . ', ' . $self->{quality};
+}
+
+1;

perl/test.pl

@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use Test::More 0.96;
+
+use_ok 'GildedRose';
+use_ok 'Item';
+
+subtest 'foo' => sub {
+    my $items = [ Item->new( name => 'foo', sell_in => 0, quality => 0 ) ];
+    my $app = GildedRose->new( items => $items );
+    $app->update_quality();
+    is( $app->{items}->[0]->{name}, 'fixme' );
+};
+
+done_testing();