view Lib/IMPL/Test/FailException.pm @ 121:92c850d0bdb9

Minor changes Fixed bug with templates base in the PageFormat module Added an ability to remove current security context with a specified
author wizard
date Tue, 08 Jun 2010 03:38:10 +0400
parents 16ada169ca75
children 4267a2ac3d46
line wrap: on
line source

package IMPL::Test::FailException;
use strict;
use warnings;

use base qw(IMPL::Exception);

__PACKAGE__->PassThroughArgs;

sub toString {
    my $this = shift;
    
    $this->Message . join("\n",'',map IMPL::Exception::indent($_,1), @{$this->Args} );
}

sub save {
    my ($this,$ctx) = @_;
    
    $ctx->AddVar(Message => $this->Message);
    $ctx->AddVar(Args => $this->Args) if @{$this->Args};
}

1;