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. ]