Help for this page

Select Code to Download


  1. or download this
    package alias;
    use strict;
    ...
    }
    
    1;
    
  2. or download this
    use alias;
    
    ...
    
    $x = 100;
    print $self->{x}; # 100