view release on metacpan or  search on metacpan

lib/Mic/Interface.pm  view on Meta::CPAN

package Mic::Interface;
use strict;

sub import {
    my ($class, %arg) = @_;

    my $caller_pkg = (caller)[0];
    $Mic::Spec_for{$caller_pkg}{interface} = \%arg;
    strict->import();
}

1;

__END__

=head1 NAME

Mic::Interface

=head1 SYNOPSIS

    package Example::Usage::SetInterface;

    use Mic::Interface
        object => {
            add => {},
            has => {},
        },
        class => { new => {} }
    ;

    1;

=head1 DESCRIPTION

Defines a reusable interface using the same (hashref) specification as the C<interface> key that is passed to C<< Mic->define_class(...) >> (see L<Mic/USAGE>).

See L<Mic/Interface Sharing> for an example.