Help for this page

Select Code to Download


  1. or download this
    sub some_method {
        my $self = shift;
        $self->{'_very_internal_flag'} = 1;
        #...
    }
    
  2. or download this
    package OO; # RFC
    use strict;
    ...
    }
    
    1;
    
  3. or download this
    package Car;
    use base 'OO';
    ...
           $self->oo_get( 'color' );
        }
    }