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!");