NAME

Cac::Util - Various utitity functions for Cache

SYNOPSIS

  use Cac::Util;

DESCRIPTION

This module contains various utility functions.

FUNCTIONS

The following functions (which are exported) exist:

compileMAC $name, @lines

 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;
 }

EXPORTS

 none.

BUGS

 Arround version 0.22 I stopped counting.

SEE ALSO

Cac, Cac::ObjectScript, Cac::Global, Cac::Routine, Cac::Bind.

AUTHOR

 Stefan Traby <stefan@hello-penguin.com>
 http://hello-penguin.com