File Coverage

blib/lib/OpenFrame/WebApp/Error.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	33	33	100.0

=head1 NAME

OpenFrame::WebApp::Error - base class for WebApp Errors.

=head1 SYNOPSIS

  # meant to be sub-classed:
  use OpenFrame::WebApp::Error::SomeClass;

  # should export some error flags to your namespace

  use Error qw( :try );
  try {
      throw OpenFrame::WebApp::Error::SomeClass( flag => eSomeError );
  } catch OpenFrame::WebApp::Error::SomeClass with {
      my $e = shift;
      do { ... } if ($e->flag == eSomeError);
  }

=cut


package OpenFrame::WebApp::Error;

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

our $VERSION = (split(/ /, ' $Revision: 1.3 $ '))[2];

use base qw( Error );

sub new {
    my $class = shift;
    local $Error::Depth = $Error::Depth + 1;
    $class->SUPER::new(map { /^\-?flag$/ ? '-text' : $_; } @_);
}

# store flag in '-text' as it's hard-coded into Error.pm
sub flag {
    my $self = shift;
    if (@_) {
	$self->{-text} = shift;
	return $self;
    } else {
	return $self->{-text};
    }
}


1;


__END__