File Coverage

blib/lib/IOC/Proxy/Interfaces.pm

Criterion	Covered	Total	%
statement	45	45	100.0
branch	6	6	100.0
condition	2	3	66.6
subroutine	10	10	100.0
pod			n/a
total	63	64	98.4

package IOC::Proxy::Interfaces;

use strict;
use warnings;

our $VERSION = '0.02';

use base 'IOC::Proxy';

use IOC::Exceptions;

sub _init {
    my ($self, $config) = @_;
    (exists ${$config}{interface})
        || throw IOC::InsufficientArguments "You must specify an interface in the configuration";
    $self->SUPER::_init($config);
}

# PRIVATE METHODS

sub _createPackageString {
    my ($self, $obj_class, $proxy_package) = @_;
	my $package_string = $self->SUPER::_createPackageString($obj_class, $proxy_package);
    my $interface = $self->{config}->{interface};
    $package_string =~ s/\@ISA \= \('$obj_class'\)/\@ISA \= \('$obj_class'\, '$interface'\)/;
	return $package_string;
}

sub _installMethods {
    my ($self, $obj_class, $proxy_package, $methods) = @_;

    my $interface = $self->{config}->{interface};
    my $interface_methods = {};
    $self->_collectAllMethods($interface, $interface_methods);
    (keys %{$interface_methods}) || throw IOC::OperationFailed "No methods could be found in '$interface'";

    (exists ${$methods}{$_})
        || throw IOC::IllegalOperation "The class '$obj_class' does not conform to the interface '$interface'"				 		foreach keys %{$interface_methods};

    no strict 'refs';
    while (my ($method_name, $method) = each %{$methods}) {
        if (exists ${$interface_methods}{$method_name}) {
            *{"${proxy_package}::$method_name"} = sub {
                            $self->onMethodCall($method_name, $method->{full_name}, [ @_ ]);
                            goto &{$method->{code}};
                        };
        }
        else {
            *{"${proxy_package}::$method_name"} = sub { throw IOC::MethodNotFound };
        }
    }
}

1;

__END__