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