/ 
Evo-0.0213
⭐ Starred 4 / Evo::Attr

NAME

Evo::Attr

VERSION

version 0.0213

DESCRIPTION

Provides a nice way to use attributes without limitations.

SYNOPSYS

# Foo.pm
package Foo;
use Evo '-Attr attr_handler; -Export import';

attr_handler(
  sub ($pkg, $code, @attrs) {
    my @found     = grep {/^Foo/} @attrs;
    my @remaining = grep { !/^Foo/ } @attrs;
    say "found in $pkg ($code): " . join ', ', @found if @found;
    @remaining;
  }
);


# test.pl
use Evo 'Foo *';
sub foo : Foo {...}

USAGE

Package that provides attribute should call "attr_handler" with a handler as a first argument. That handler should examine attributes, and return unknown for other handlers.

Provider should also import "import" in Evo::Export to be able to export MODIFY_CODE_ATTRIBUTES into the package, that uses attributes.

This approach allow mix different attributes without patching UNIVERSAL.

package Bar;

use Evo '-Loaded; -Attr attr_handler; -Export import';

attr_handler(
  sub ($pkg, $code, @attrs) {
    my @found     = grep {/^Bar/} @attrs;
    my @remaining = grep { !/^Bar/ } @attrs;
    say "found in $pkg ($code): " . join ', ', @found if @found;
    @remaining;
  }
);

# test2.pl
use Evo 'Foo *; Bar *';

sub multi : Foo : Bar(args) {...}

attr_handler

This method should be called only once. In fact, it adds MODIFY_CODE_ATTRIBUTES to export list and call internal methods that register handler.

1;

AUTHOR

alexbyk.com

COPYRIGHT AND LICENSE

This software is copyright (c) 2016 by alexbyk.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.