File Coverage

blib/lib/JOAP/Proxy/Package.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

# JOAP::Proxy::Package -- Classes that use JOAP
#
# 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 package base class

package JOAP::Proxy::Package;
use Class::Data::Inheritable;
use base qw/Exporter Class::Data::Inheritable/;

use 5.008;
use strict;
use warnings;
use JOAP::Proxy::Error;

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

our $VERSION = $JOAP::VERSION;
our $AUTOLOAD;

JOAP::Proxy::Package->mk_classdata('Attributes');
JOAP::Proxy::Package->mk_classdata('Methods');
JOAP::Proxy::Package->mk_classdata('Timestamp');
JOAP::Proxy::Package->mk_classdata('Description');

JOAP::Proxy::Package->Methods({});
JOAP::Proxy::Package->Attributes({});
JOAP::Proxy::Package->Timestamp(undef);
JOAP::Proxy::Package->Description('');

# when describe stuff happens, we want to store it in the package
# rather than in the instance.

sub attributes {
    my $self = shift;
    return $self->Attributes(@_);
}

sub methods {
    my $self = shift;
    return $self->Methods(@_);
}

sub timestamp {
    my $self = shift;
    return $self->Timestamp(@_);
}

sub _set_timestamp {
    my $self = shift;
    return $self->Timestamp(@_);
}

sub description {
    my $self = shift;
    return $self->Description(@_);
}

sub _set_description {
    my $self = shift;
    return $self->Description(@_);
}

# when we autoload, we want to cache the results in the package
# namespace.

sub AUTOLOAD {

    my ($self) = $_[0];
    my ($sub) = $AUTOLOAD;

    my ($pkg,$name) = ($sub =~ /(.*)::([^:]+)$/);
    my ($func) = $self->can($name);

    if ($func) {
        no strict 'refs';
        *$sub = $func;
        goto &$sub;
    } else {
        throw JOAP::Proxy::Error::Local("No attribute or method '$name'");
    }
}

1;
__END__