package thing;

use Class::Struct::FIELDS;

struct (thing => {qw {
this    $
that    @
}});


##</code><code>##


package morething;

use Class::Struct::FIELDS;
use thing;

struct (morething => [qw(thing)], { qw{
another $
yetmore @
}});


##</code><code>##


use thing;
use morething;

$mt = morething->new;
$mt->this('issomething');


##</code><code>##

Modification of a read-only value attempted at (eval 7) line 48.