#!/usr/bin/perl

use strict;
use warnings;

package My::Class; {
    use Object::InsideOut;

    my @value :Field('Accessor' => 'value');

    my %init_args :InitArgs = (
        'value' => {
            'Field'     => \@value,
            'Mandatory' => 1,
        },
    );
}

package My::Class::Sub; {
    use Object::InsideOut qw(My::Class);

    sub _preinit :PreInit
    {
        my ($self, $args) = @_;
        $args->{'value'} = 23;
    }
}

package main;

my $obj = My::Class::Sub->new();

print($obj->value(), "\n");