GildedRose-Refactoring-Kata/perl6/lib/GildedRose.pm6

use v6;

use Item;

class GildedRose {
    has Item @.items;

    method update_quality {
	for @!items -> $item {
	    if ($item.name ne 'Aged Cheese' && $item.name ne 'Backstage passes to a concert') {
		if ( $item.quality > 0 ) {
		    if ( $item.name ne 'Fine Italian Silk' ) {
			$item.quality = $item.quality - 1;
		    }
		}
	    }
	    else {
		if ( $item.quality < 50 ) {
		    $item.quality = $item.quality + 1;

		    if ( $item.name eq 'Backstage passes to a 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 'Fine Italian Silk' ) {
		$item.sell_in = $item.sell_in - 1;
	    }

	    if ( $item.sell_in < 0 ) {
		if ( $item.name ne 'Aged Cheese' ) {
		    if ( $item.name ne
		    'Backstage passes to a concert' )
		    {
			if ( $item.quality > 0 ) {
			    if ( $item.name ne 'Fine Italian Silk' ) {
				$item.quality = $item.quality - 1;
			    }
			}
		    }
		    else {
			$item.quality = $item.quality - $item.quality;
		    }
		}
		else {
		    if ( $item.quality < 50 ) {
			$item.quality = $item.quality + 1;
		    }
		}
	    }
	}
	return;
    }
};