| Cac documentation | view source | Contained in the Cac distribution. |
Cac::Util - Various utitity functions for Cache
use Cac::Util;
This module contains various utility functions.
The following functions (which are exported) exist:
Compiles Routine $name.
Actually, this function is a good example on Cache-Perl
programming, so it's included here for reference:
sub compileMAC($@) {
my ($rtn, @lines) = @_;
my $size = length join "", @lines;
unshift @lines, scalar @lines;
Gset "rMAC", $rtn, 0, CacEval '$h';
GsetA "rMAC", $rtn, 0, \@lines;
GsetH "rMAC", $rtn, 0, { LANG => "", SIZE => $size };
Do 'COMPILE', '%RCOMPIL', $rtn, 'MAC';
die "Routine compilation failed for '$rtn'" unless defined Gget "rOBJ", $rtn;
}
none.
Arround version 0.22 I stopped counting.
Stefan Traby <stefan@hello-penguin.com> http://hello-penguin.com
| Cac documentation | view source | Contained in the Cac distribution. |