package A;
use Spiffy -Base;
use strict;
field $_ for qw(id name);
sub new { bless {}, $self }