Help for this page

Select Code to Download


  1. or download this
    my new {
   my ($class, ...) = @_;
...
   $self->{...} = ...;
   return $self;
}
  2. or download this
    
use constant IDX_...  => Parent::NEXT_IDX() + 0;
...
   );
   return $self;
}