=begin pod :kind("Type") :subkind("class") :category("exception")

=TITLE role CX::Done

=SUBTITLE Done control exception

    role CX::Done does X::Control { }

A L<control exception|/language/exceptions#Control_exceptions> to be used to
indicate a supply block is finished by calling C<done>.

=head1 Methods

=head2 method message

Defined as:

    method message()

Returns "<done control exception>"

=end pod
