Help for this page

Select Code to Download

Select or download this

package ABC;

...
   my ( $class, $ref) = @_;
   return bless $ref, $class;
}