sub hashify {
    my $self = shift;
    return { %$self }
}