view release on metacpan or  search on metacpan

xs/Embperl/Req/Req.xs  view on Meta::CPAN

    else
        croak ("initializer for Embperl::Req::new is not a hash or object reference") ;

} ;


MODULE = Embperl::Req    PACKAGE = Embperl::Req   PREFIX = embperl_

int
embperl_cleanup(r)
    Embperl::Req r
CODE:
    RETVAL = embperl_CleanupRequest(r);
OUTPUT:
    RETVAL


MODULE = Embperl::Req    PACKAGE = Embperl::Req   PREFIX = embperl_

int
embperl_execute_component(r, pPerlParam)
    Embperl::Req r
    SV * pPerlParam
CODE:
    RETVAL = embperl_ExecuteComponent(r, pPerlParam);
OUTPUT:
    RETVAL


MODULE = Embperl::Req    PACKAGE = Embperl::Req   PREFIX = embperl_

const char *
embperl_gettext(r, sMsgId)
    Embperl::Req r
    const char * sMsgId
CODE:
    RETVAL = embperl_GetText(r, sMsgId);
OUTPUT:
    RETVAL


MODULE = Embperl::Req    PACKAGE = Embperl::Req   PREFIX = embperl_

int
embperl_run(r)
    Embperl::Req r
CODE:
    RETVAL = embperl_RunRequest(r);
OUTPUT:
    RETVAL


MODULE = Embperl::Req    PACKAGE = Embperl::Req   PREFIX = embperl_

int
embperl_setup_component(r, pPerlParam)
    Embperl::Req r
    SV * pPerlParam
PREINIT:
    tComponent * ppComponent;
PPCODE:
    RETVAL = embperl_SetupComponent(r, pPerlParam, &ppComponent);
    XSprePUSH;
    EXTEND(SP, 2) ;
    PUSHs(epxs_IV_2obj(RETVAL)) ;
    PUSHs(epxs_Embperl__Component_2obj(ppComponent)) ;

MODULE = Embperl::Req    PACKAGE = Embperl::Req 

SV *
apache_req(obj, val=NULL)
    Embperl::Req obj
    SV * val
  PREINIT:
    /*nada*/

  CODE:
    RETVAL = (SV *)  obj->pApacheReqSV;

    if (items > 1) {
        obj->pApacheReqSV = (SV *)SvREFCNT_inc(val);
    }
  OUTPUT:
    RETVAL

MODULE = Embperl::Req    PACKAGE = Embperl::Req 

Embperl::Req::Config
config(obj, val=NULL)
    Embperl::Req obj
    Embperl::Req::Config val
  PREINIT:
    /*nada*/

  CODE:
    RETVAL = (Embperl__Req__Config) & obj->Config;
    if (items > 1) {
         croak ("Config is read only") ;
    }
  OUTPUT:
    RETVAL

MODULE = Embperl::Req    PACKAGE = Embperl::Req 

Embperl::Req::Param
param(obj, val=NULL)
    Embperl::Req obj
    Embperl::Req::Param val
  PREINIT:
    /*nada*/

  CODE:
    RETVAL = (Embperl__Req__Param) & obj->Param;
    if (items > 1) {
         croak ("Param is read only") ;
    }
  OUTPUT:
    RETVAL

MODULE = Embperl::Req    PACKAGE = Embperl::Req