NAME

Evo::Export

VERSION

version 0.0229

DESCRIPTION

Standart Exporter wasn't good enough for me, so I've written a new one from the scratch

SYNOPSYS

  package My::Lib;
  use Evo '-Export *', -Loaded;

  # export foo, other as bar
  sub foo : Export        { say 'foo' }
  sub other : Export(bar) { say 'bar' }

  # test.pl
  package main;
  use Evo 'My::Lib *';
  foo();
  bar();

IMPORTING

  use Evo;
  use Evo 'Evo::Eval eval_try';
  use Evo '-Promise promise deferred';

For convenient, you can load all above in one line

  use Evo '-Eval eval_try; -Promise promise deferred';

* means load all. - is a shortcut. See ""shortcuts" in Evo

what to import and how

You can rename subroutines to avoid method clashing

  # import promise as prm
  use Evo '-Promise promise:prm';

You can use * with exclude - for convinient

  # import all except "deferred"
  use Evo '-Promise *, -deferred';

If one name clashes with yours, you can import all except that name and import renamed version of that name

  # import all as is but only deferred will be renamed to "renamed_deferred"
  use Evo '-Promise *, -deferred, deferred:renamed_deferred';

EXPORTING

Firstly you need to load Evo::Export with import (or *). This will import import method:

  use Evo '-Export *';
  use Evo '-Export import';

By default, use Your::Module;, without arguments will import nothing. You can change this behaviour to export all without arguments

  use Evo '-Export import_all:import';
  use Evo '-Export *, -import, import_all:import';

Using attribute Export

  package My::Lib;
  use Evo '-Export *'; # or use Evo::Export 'import';
  use Evo -Loaded;

  sub foo : Export { say 'foo' }

  package main;
  use Evo 'My::Lib foo';
  foo();

Pay attention that module should either import import, or call Evo::Export/install directly (see example below) from import method

You can export with another name

  # export as bar
  sub foo : Export(bar) {say 'foo'}

(EXPERIMENTAL) Using attribte ExportGen

  package My::Lib;
  use Evo '-Export *; -Loaded';

  sub bar ($me, $dest) : ExportGen {
    say qq{"$dest" requested "bar" exported by "$me"};
    return sub { say "$me-$dest-bar" };
  }

  package main;
  use Evo;
  My::Lib->import('*');
  bar();

INSTALLING DIRECTLY

If you want to write your own import method, do it this way:

  package My::Lib;
  use Evo -Export;    # don't import "import"
  use Evo -Loaded;

  sub import ($self, @list) {
    my $dest = scalar caller;
    Evo::Export->install_in($dest, $self, @list ? @list : ('*'));    # force to install all
  }
  sub foo : Export { say 'foo' }


  package main;
  use Evo 'My::Lib';
  foo();

export;

Export signature is more preffered way, but if you wish

  # export foo
  export 'foo';

  # export "foo" under name "bar"
  export 'foo:bar';

Trying to export not existing subroitine will cause an exception

export_code

Export function, that won't be available in the source class

  # My::Lib now exports foo, but My::Lib::foo doesn't exist
  export_code foo => sub { say "hello" };

export_proxy

  # reexport all from My::Other
  export_proxy 'My::Other', '*';


  # reexport "foo" from My::Other
  export_proxy 'My::Other', 'foo';

  # reexport "foo" from My::Other as "bar"
  export_proxy 'My::Other', 'foo:bar';

export_gen (EXPERIMENTAL)

  package My::Lib;
  use Evo '-Export *; -Loaded';

  export_gen foo => sub ($me, $dest) {
    say qq{"$dest" requested "foo" exported by "$me"};
    sub {say "hello, $dest"};
  };


  package main;
  use Evo;
  My::Lib->import('*');
  foo();

Very powefull and most exciting feature. Evo::Export exports generators, that produces subroutines. Consider it as a 3nd dimension in 3d programming. Better using with ExportGen attribute

import

By default, this method will be exported and do the stuff. If you need replace import of your module, exclude it by use Evo '-Export *, -import'

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.

cpanm Evo

perl -MCPAN -e shell
install Evo