Help for this page

Select Code to Download


  1. or download this
    package Encoder;
    
    ...
       $self->common_stuff($text);
       $self->other_stuff($text);
    }
    
  2. or download this
    # In Encoder/B.pm
    package Encoder::B;
    ...
       my $new_text = $text;
       $new_text =~ s/a/c/g;
    }
    
  3. or download this
    use Encoder::B;
    use Encoder::Whatever;
    ...
      return $Encoder_Table{$e}->new();
    }
    
  4. or download this
    my $encoder = encoder_factory($whatever_e_is);
    print $encoder->encode("Hahahaha!");