OpenSource/GildedRose-Refactoring-Kata
1
0
Fork 0
mirror of https://github.com/emilybache/GildedRose-Refactoring-Kata.git synced 2026-02-18 07:51:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Delete perl directory

Browse Source
This commit is contained in:
Matt Decker 2022-06-26 09:17:15 -05:00 committed by GitHub
parent 23fba43d93
commit 34ac850b56
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 0 additions and 180 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
perl/GildedRose.pm
View File

@ -1,74 +0,0 @@
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;

16
perl/Item.pm
View File

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

18
perl/test.pl
View File

@ -1,18 +0,0 @@
#!/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();

72
perl/texttest_fixture.pl
View File

@ -1,72 +0,0 @@
#!/usr/bin/env perl
use strict;
use warnings;
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
),
];
my $days = 2;
if ( $#ARGV >= 0 ) {
$days = $ARGV[0];
}
my $gilded_rose = GildedRose->new( items => $items );
for my $day ( 0 .. $days ) {
print "-------- day $day --------", "\n";
print 'name, sellIn, quality', "\n";
for my $item ( @{$items} ) {
print $item->to_string(), "\n";
}
print "\n";
$gilded_rose->update_quality();
}