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

use strict;
__PACKAGE__->mk_accessors(fields());
__PACKAGE__->has_all();
__PACKAGE__->has_a('derived_parent');
__PACKAGE__->has_many({child => 'derived_child'});
__PACKAGE__->has_a_through('status|derived_status');
__PACKAGE__->has_many_through('attribute|derived_attr');
sub fields {
return qw(id_derived id_derived_parent id_derived_status text_dummy char_dummy int_dummy float_dummy);
}
1;