Help for this page

Select Code to Download


  1. or download this
    package My::Class;
    
    ...
    use base qw( Class::Accessor );
    
    My::Class->mk_accessors( qw( field1 field2 field3 ) );