package My::New::Object;

has max_chunk => (is=>'rw', isa=>'Int', init_arg => 'size', clearer=>'clear_max_chunk');
has liberal_mode => (is=>'rw', isa=>'Bool', default=>sub{1});
has fh => (is=>'rw', isa=>'My::New::Object::ProtoFileHandle', clearer=>'clear_fh', predicate=>'has_fh', writer=>'_set_fh', coerce => 1, init_arg => 'file', trigger => \&reset_temporary_variables );

[... more attributes, code, etc. ]

##</code><code>##

object: $VAR1 = bless( {
  'liberal_mode' => 1,
  'fh' => bless( \*Symbol::GEN0, 'FileHandle' ),
[... other data ...]
}, 'My::New::Object' );

##</code><code>##

object: $VAR1 = bless( {
  'options' => {
    'liberal_mode' => 1,
    'fh' => bless( \*Symbol::GEN0, 'FileHandle' ),
  },
[... other data ...]
}, 'My::New::Object' );