Re: Access Control Lists and Functions

[Mark Fowler]

> Dieing's probably a bad idea. The idea was for it to set an error stack
> so that even if you were using this module you would do stuff like
>
>       my $do = new DO;
>       $do->something();
>       warn ACL::last_error()."\n" if ACL::error();
>
> which would print out something like "Access to DO::something denied for
> user x";

Why can't you do this with the standard die semantics?

eval
{
        my $do = new DO;
        $do->something();
}
if ($@)
{
        warn $@;
}

(will work if both $@ is a string or a object that is overriden)

Of course if you were using Error.pm you could even use 'try' and 'catch'
as syntatic suger.  See the Error perldoc.

Later.

Mark.

-- 
print "\n",map{my$a="\n"if(length$_>6);' 'x(36-length($_)/2)."$_\n$a"} (
   Name  => 'Mark Fowler',        Title => 'Technology Developer'      ,
   Firm  => 'Profero Ltd',        Web   => 'http://www.profero.com/'   ,
   Email => '[EMAIL PROTECTED]',   Phone => '+44 (0) 20 7700 9960'      )