sub new{
        my ($class,$data) = @_;

        $data ||= {}; ## avoid empty hashref errors

        my $attr = {


                %$data,

        };

        bless $attr, $class;
}