Function-Interface

 view release on metacpan or  search on metacpan

lib/Function/Interface/Info/Function.pm  view on Meta::CPAN

package Function::Interface::Info::Function;

use v5.14.0;
use warnings;

our $VERSION = "0.06";

sub new {
    my ($class, %args) = @_;
    bless \%args => $class;
}

sub subname() { $_[0]->{subname} }
sub keyword() { $_[0]->{keyword} }
sub params() { $_[0]->{params} }
sub return() { $_[0]->{return} }

sub definition() {
    my $self = shift;

lib/Function/Interface/Info/Function/Param.pm  view on Meta::CPAN

package Function::Interface::Info::Function::Param;

use v5.14.0;
use warnings;

our $VERSION = "0.06";

sub new {
    my ($class, %args) = @_;
    bless \%args => $class;
}

sub type() { $_[0]->{type} }
sub name() { $_[0]->{name} }
sub optional() { !!$_[0]->{optional} }
sub named() { !!$_[0]->{named} }

sub type_display_name() { $_[0]->type->display_name }

1;

lib/Function/Interface/Info/Function/ReturnParam.pm  view on Meta::CPAN

package Function::Interface::Info::Function::ReturnParam;

use v5.14.0;
use warnings;

our $VERSION = "0.06";

sub new {
    my ($class, %args) = @_;
    bless \%args => $class;
}

sub type() { $_[0]->{type} }
sub type_display_name() { $_[0]->type->display_name }

1;
__END__

=encoding utf-8

t/lib/FooObject.pm  view on Meta::CPAN

package FooObject;
use Function::Interface::Impl qw(IFoo);

fun foo() :Return() { }

fun new($class) { bless {} => $class };

1;

 view all matches for this distribution
 view release on metacpan -  search on metacpan