I can see your point here. Ive done things like this

sub assert{
   my ($stmt,@args)=@_;
   my $ok=eval"$stmt" or die "Failed to eval assertion '$stmt':$@";
   unless ($ok) {
      no warnings;
      my $str=eval qq("$stmt") 
         or die "Failed to eval assertion '$stmt' as a string:$@";
      die "Failed assertion '$str'\n";
   }
}
[download]

which works reasonably well, but obviously isn't as satisfactory as your approach, and could even be a security risk as presently written if it were run on untrustworthy data.

Anyway, Itll be nice though when the new stuff is out at a production grade. I look forward to it. :-)

---
demerphq

_{<Elian> And I do take a kind of perverse pleasure in having an OO assembly language...}