GildedRose-Refactoring-Kata/perl/Item.pm

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;