package Experimental::Exception::AssertFailure;

use Experimental::Exception;

@Experimental::Exception::AssertFailure::ISA = 
  qw(Experimental::Exception::Error Exporter);
@Experimental::Exception::AssertFailure::EXPORT_OK = qw(&assert);

sub assert (&@)
{
  my($block) = shift;
  unless (&$block)
  {
    my $exc = new Experimental::Exception::AssertFailure @_;
    &Experimental::Exception::throw($exc);
  }
}