package Net::ACME::Registration;

use strict;
use warnings;

use parent qw( Net::ACME::AccessorBase );

#Expand this as needed.
use constant _ACCESSORS => qw(
    agreement
    key
    terms_of_service
    uri
);

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

    #Silently (?) reject anything unfamiliar.
    %opts = map { ( $_ => $opts{$_} ) } _ACCESSORS();

    return $class->SUPER::new( %opts );
}

1;