Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

use strict;
...
    bless($self, $class);
    return $self;
}
  2. or download this
    {
    my %history;

...
        $self->{$attrib} = $value;
    }
}
  3. or download this
    sub color {
    my $self = shift;
    if (@_) {
...
}

1;
  4. or download this
    #!/usr/bin/perl -w

use strict;
...
    $hist2->undo();
    print $hist2->all(), "\n\n";
}