Mass Deface
"\$",
# The include path.
'path' => '@',
# The set of input files.
'input' => '@',
# The set of macros currently traced.
'macro' => '%',
);
# Serialize a request or all the current requests.
sub marshall($)
{
my ($caller) = @_;
my $res = '';
# CALLER is an object: instance method.
my $marshall = Data::Dumper->new ([$caller]);
$marshall->Indent(2)->Terse(0);
$res = $marshall->Dump . "\n";
return $res;
}
# includes_p ($SELF, @MACRO)
# --------------------------
# Does this request covers all the @MACRO.
sub includes_p
{
my ($self, @macro) = @_;
foreach (@macro)
{
return 0
if ! exists ${$self->macro}{$_};
}
return 1;
}
=head1 SEE ALSO
L