Help for this page

Select Code to Download


  1. or download this
        sub anon_ref {
            $N ||= 1;
    ...
            
            return ($ref);
        }
    
  2. or download this
        sub My_object::new {
            my ($type, @data) = @_;
    ...
            
            return ($object);
        }
    
  3. or download this
        sub My_object::new {
            my $O = bless anon_ref(), shift;
            $O->configure_with (@_);
            return ($O);
        }