#!/usr/bin/perl -w # # ApacheDispatch.pm # # Copyright (C) 2011-2012 Cesnet z.s.p.o # # Use of this source is governed by a BSD-style license, see LICENSE file. package Warden::ApacheDispatch; use strict; use SOAP::Transport::HTTP; our $VERSION = "2.0"; # set server dispatch_to my $server = SOAP::Transport::HTTP::Apache->dispatch_to('.','Warden'); #------------------------------------------------------------------------------- # handler - call handler for Warden server #------------------------------------------------------------------------------- sub handler { $server->handler(@_) } 1;