Help for this page

Select Code to Download


  1. or download this
    sub gen_sub {
        my $self = shift;
        my $type = shift;
    ...
    
        *{"get_$type"} = $sub_ref;
    }
    
  2. or download this
    sub AUTOLOAD {
        no strict "refs";
        my ($self, $value) = @_;     # alias these to make it easier later
    ...
        }
        # handle other methods here or throw a warning
    }