File Coverage

blib/lib/OpenFrame/WebApp/Template/Error.pm

Criterion	Covered	Total	%
statement	18	32	56.2
branch	0	6	0.0
condition			n/a
subroutine	6	9	66.6
pod	3	3	100.0
total	27	50	54.0

=head1 NAME

OpenFrame::WebApp::Template::Error - Template errors

=head1 SYNOPSIS

  use OpenFrame::WebApp::Template::Error;
  throw OpenFrame::WebApp::Template::Error( flag     => eTemplateError,
                                            message  => $text,
                                            template => $file );

=cut


package OpenFrame::WebApp::Template::Error;

use utf8;
use strict;
use warnings::register;

our $VERSION = (split(/ /, ' $Revision: 1.3 $ '))[2];
our @EXPORT  = qw( eTemplateError eTemplateNotFound );

use base qw( Exporter OpenFrame::WebApp::Error );

use constant eTemplateError    => 'error.template.process';
use constant eTemplateNotFound => 'error.template.not.found';

sub new {
    my $class = shift;
    local $Error::Depth = $Error::Depth + 1;
    $class->SUPER::new(map { /^((?:message)|(?:template))$/ ? "-$1" : $_; } @_);
}

sub message {
    my $self = shift;
    if (@_) {
	$self->{-message} = shift;
	return $self;
    } else {
	return $self->{-message};
    }
}

sub template {
    my $self = shift;
    if (@_) {
	$self->{-template} = shift;
	return $self;
    } else {
	return $self->{-template};
    }
}


1;


__END__