File Coverage

blib/lib/JOAP/Proxy/Server.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

# JOAP::Proxy::Server -- Class for Server Objects
#
# Copyright (c) 2003, Evan Prodromou
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation; either
# version 2.1 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this library; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA

# tag: JOAP server proxy object class

use 5.008;
use strict;
use warnings;

package JOAP::Proxy::Server;
use JOAP::Proxy;
use base qw/JOAP::Proxy/;

our %EXPORT_TAGS = ( 'all' => [ qw// ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw//;

our $VERSION = $JOAP::VERSION;

sub classes {

    my $self = shift;
    return (@_) ? $self->{_classes} = shift : $self->{_classes};
}

sub _describe {

    my $self = shift;
    my $resp = $self->SUPER::_describe(@_);

    # Need to get the classes, too.

    my @classes = $resp->GetQuery->GetClass;
    $self->classes(\@classes);

    # XXX: update addresses for classes in classmap

    return $resp;
}

1;

__END__