Author image Mons Anderson

NAME

self::init - Invoke package init methods at compile time

VERSION

Version 0.01

SYNOPSIS

    # At compile time
    use self::init
        \-x => qw( y z ), # same as BEGIN { CLASS->x('y','z'); }
    ;
    
    # At runtime
    self::init
        \-a => qw(a b),
        \-b => (),
        \-c => qw( c c ),
    ;
    
    # Same as
    CLASS->a('a','v');
    CLASS->b();
    CLASS->c('c','c');
    
    # With bad arguments (scalarrefs, containing string, beginning from -)
    self::init
        [ a => \'-arg1', \'-arg2' ],
        [ b => 'arg3', 'arg4' ],
    ;
    
    # ! Warning!
    # Mixed syntax is not allowed
    self::init
        \-a => qw(arg1 arg2),
        [ b => \'-arg1', \'-arg2' ],
    ;

    # will be invoked as

    CLASS->a('arg1','arg2', [ 'b', \'-arg1', \'-arg2' ] );

    # So be aware

DESCRIPTION

This module is just a helper to avoid repetiotion of ugly __PACKAGE__->method();

INTERFACE

self::init pragma
    use self::init ARGS;
self::init statement
    self::init ARGS;
ARGS

Synopsis 1:

Method name is constructed as a reference to string, containing method name, prefixed with '-'. Rest in list is threated as arguments to that method, until next method name or end of whole statement. So, if your arguments not written by hand or in some way could receive value of SCALARREF, containing string, beginning from -, invocation will be wrong (see Synopsis 2)

When writing method names not quoted (hash key bareword), the whole statement looks like an ASCII tree, where methods are descendants of self::init ;)

    self::init
        \-method1 => (1,2,3),
        \-method_another => ('some', 'args'),
        \-_private_method => (), # no args,
        # so on
    ;

Synopsis 2:

Single method invocation is constructed as ARRAYREF, containing first element as method name and rest as arguments. It is reliable to any arguments, but don't mix both synopsises in a single call

    self::init
        [ method1 => 1,2,3 ],
        [ method_another => 'some', 'args' ],
        [ _private_method => (), ],  # no args
        # so on
    ;

AUTHOR

Mons Anderson, <mons@cpan.org>

BUGS

None known

COPYRIGHT & LICENSE

Copyright 2009 Mons Anderson.

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