Apache2::REST::ErrorOutputRegistry - Manages instances of ErrorOutputHandler

Apache2-REST documentation Contained in the Apache2-REST distribution.

Index

Code Index:

NAME

Top

Apache2::REST::ErrorOutputRegistry - Manages instances of ErrorOutputHandler

instance

Returns the singleton instance of the registry.

registerEO

Registers an instance of ErrorOutputHandler

getOutput

Returns the ErrorOutputHandler registered with key

Usage:

    Apache2::REST::ErrorOutputRegister->instance()->getOutput('both') ; # For instance.
Apache2-REST documentation Contained in the Apache2-REST distribution. 
package Apache2::REST::ErrorOutputRegistry;
use Apache2::REST::ErrorOutputHandler::both ;
use Apache2::REST::ErrorOutputHandler::response ;
use Apache2::REST::ErrorOutputHandler::server ;
use strict ;


use base qw/Class::AutoAccess/ ;

my $singleton = undef ;


sub instance{
    my ($class) = @_ ;
    unless ($singleton){
        $singleton = {
            'register' => {},
        };
        bless $singleton , $class ;
        $singleton->buildRegister() ;
    }
    return $singleton ;
}


sub buildRegister{
    my ( $self ) = @_ ;
    
    $self->registerEO('both' , Apache2::REST::ErrorOutputHandler::both->new()) ;
    $self->registerEO('response' , Apache2::REST::ErrorOutputHandler::response->new()) ;
    $self->registerEO('server'  , Apache2::REST::ErrorOutputHandler::server->new()) ;
}



sub registerEO{
    my ( $self , $key , $eoInstance ) = @_ ;
    unless( $eoInstance->isa('Apache2::REST::ErrorOutputHandler')){
        
    }
    $self->register()->{$key} = $eoInstance ;
}



sub getOutput{
    my ( $self , $key ) = @_ ;
    
    if ( $self->register()->{$key} ){
        return $self->register()->{$key} ;
    }
    warn "NO ErrorOutput instance found for $key. Using 'both'\n";
    return $self->register->{'both'};
}


1;