Select Code to Download

package My::New::Object;

...
has fh => (is=>'rw', isa=>'My::New::Object::ProtoFileHandle', clearer=
+>'clear_fh', predicate=>'has_fh', writer=>'_set_fh', coerce => 1, ini
+t_arg => 'file', trigger => \&reset_temporary_variables );

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

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

object: $VAR1 = bless( {
  'options' => {
...
  },
[... other data ...]
}, 'My::New::Object' );