Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

use strict;
sub new {
my $class = shift;
my %self = @_;
return bless \%self, $class;
}
sub nork {
return $_[0]->{'nork'};
}
1;