DESCRIPTION

To define a new data transfer object (DTO) simply say:

    package OpenXPKI::Client::UI::Response::MyData;
    use OpenXPKI::Client::UI::Response::DTO;
    has 'message' => (
        is => 'rw',
        isa => 'Str',
    );
    has_dto 'menu' => (
        documentation => 'structure',
        class => 'OpenXPKI::Client::UI::Response::Menu',
    );

This will modify your package as follows:

• imports "Moose" (i.e. adds "use Moose;" so you don't have to do it)
• provides the "has_dto" keyword to define nested DTOs
• applies the Moose role OpenXPKI::Client::UI::Response::DTORole

    has_dto 'menu' => (
        documentation => 'structure', # key name in result hash will be "structure" instead of "menu"
        class => 'OpenXPKI::Client::UI::Response::Menu',
    );

    has 'menu'=> (
        documentation => 'structure',
        is => 'rw',
        isa => 'OpenXPKI::Client::UI::Response::Menu',
        default => sub { OpenXPKI::Client::UI::Response::Menu->new },
        lazy => 1,
    );