File Coverage

blib/lib/ex/interface.pm

Criterion	Covered	Total	%
statement	14	26	53.8
branch	0	4	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	1	0.0
total	17	36	47.2

package ex::interface;

use strict;
no strict 'refs';

require 5.6.0;
our $VERSION = "0.2";


sub import {
    my $self = shift;
    my %__METHOD = map {$_ => 1} @_;
    my $interface = caller;
    *{"$interface\::__METHOD"} = \%__METHOD;
    *{"$interface\::AUTOLOAD"} = \&their_AUTOLOAD;
}

sub their_AUTOLOAD {
    our $AUTOLOAD = $AUTOLOAD;
    $AUTOLOAD =~ s/(.*):://;
    return if $AUTOLOAD eq 'DESTROY';
    my $interface = $1;
    if ($ {"$interface\::__METHOD"}{$AUTOLOAD}) {
        require Carp;
        Carp::croak("The interface method '$AUTOLOAD' has not been implemented");
    }
    else {
        my $self = shift;
        $AUTOLOAD =~ s/^/SUPER::/;
        $self->$AUTOLOAD(@_);
    }
}

sub DESTROY { return }

1;