File Coverage

blib/lib/OpenInteract2/Exception/Security.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package OpenInteract2::Exception::Security;

# $Id: Security.pm,v 1.13 2005/03/17 14:58:02 sjn Exp $

use strict;
use base qw( OpenInteract2::Exception Class::Accessor::Fast );
use SPOPS::Secure qw( :verbose :level );

$OpenInteract2::Exception::Security::VERSION = sprintf("%d.%02d", q$Revision: 1.13 $ =~ /(\d+)\.(\d+)/);

my @FIELDS = qw( security_required security_found );
OpenInteract2::Exception::Security->mk_accessors( @FIELDS );
sub Fields { return @FIELDS }

my ( $CTX );

my $DEFAULT_MSG = "Security violation. Object requires '%s' but got '%s'";

my %LEVELS = (
   SEC_LEVEL_NONE()    => SEC_LEVEL_NONE_VERBOSE,
   SEC_LEVEL_SUMMARY() => SEC_LEVEL_SUMMARY_VERBOSE,
   SEC_LEVEL_READ()    => SEC_LEVEL_READ_VERBOSE,
   SEC_LEVEL_WRITE()   => SEC_LEVEL_WRITE_VERBOSE,
);

sub full_message {
    my ( $self ) = @_;
    my $required = ( $self->security_required )
                     ? $LEVELS{ $self->security_required }
                     : 'none specified';
    my $found = ( $self->security_found )
                  ? $LEVELS{ $self->security_found }
                  : 'none specified';
    unless ( $CTX ) {
        require OpenInteract2::Context;
        $CTX = OpenInteract2::Context->instance( 1 );
    }
    my ( $msg );
    if ( $CTX && $CTX->request ) {
        $msg = eval {
            $CTX->request
                ->language_handle
                 ->maketext( 'global.exception.security', $required, $found );
        };
    }
    unless ( $msg ) {
        $msg = sprintf( $DEFAULT_MSG, $required, $found );
    }
    return $msg;
}

1;

__END__