Select Code to Download

package Soldier;

use constant NAME => 0;
...
}

# similar methods for RANK and SERIAL

package Password;

use Digest::MD5 qw(md5_base64);        # based on an idea by jbontje
...
    my $candidate = shift;
    return ($self eq md5_base64($candidate));
}

package WordMatch;

sub new {
...

print $wm->match("[hi] how are you?"), "\n";
print $wm->match("hi how are you?"), "\n";

package ReadFile;

...
    my $line = <$self>;
    return  $line;
}

my $file = ReadFile->new("obself.pl");
print $file->read_record("package");
print $file->read_record();

sub DESTROY {
    my $self = shift;
    close $self;
    print "Closed!\n";        # just to prove that it's working
}

package SubBrowser;

sub new {
...
    my $self = shift;
    return &$self;
}

package Wrapper;

use vars '$AUTOLOAD';
...
# our new version
my $wm2 = Wrapper->new(WordMatch->new("Hello"));
print $wm2->match("[Hello] little girl"), "\n";