Help for this page

Select Code to Download


  1. or download this
    sub p1 {
        our $persistant;  $persistant = "init" unless defined $persistant;
    ...
    
        return $persistant.
    }
    
  2. or download this
    package niffty;
    
    sub new { bless { persistant => "init" } }
    sub p1 { my $this = shift; $this->{persistant} .= "."; 
        return $this->[persistant}; }