/ 
Sub-Spec-RunDeps-0.01
/ Sub::Spec::RunDeps

NAME

Sub::Spec::RunDeps - Run subroutine in order of its dependencies

VERSION

version 0.01

SYNOPSIS

In your module:

package YourModule;

use 5.010;
our %SPEC;

$SPEC{a} = { depends => 'b', ... };
sub a { my %args = @_; say "a", $args{punctuation}; [200, "OK"] }

$SPEC{b} = { depends => {subname=>'c'}, ... };
sub b { my %args = @_; say "b", $args{punctuation}; [200, "OK"] }

$SPEC{c} = { depends => 'd|e', ... };
sub c { my %args = @_; say "c", $args{punctuation}; [200, "OK"] }

$SPEC{d} = { ... };
sub d { my %args = @_; say "d", $args{punctuation}; [200, "OK"] }

$SPEC{e} = { ... };
sub e { my %args = @_; say "e", $args{punctuation}; [200, "OK"] }

1;

In caller:

use Sub::Spec::RunDeps qw(run_deps);
run_deps(item => {sub=>'YourModule::a'}, common_args=>{punctuation=>'!'});

will output:

d!
e!
c!
b!
a!

DESCRIPTION

This module reads the depends clause on subroutine specs and runs subroutine in order of dependencies. That is, if you tell it to run A, it will try to satisfy (run) A's dependencies first, and A's dependencies' dependencies, and so on.

This module uses Log::Any logging framework. Use something like Log::Any::App, etc to see more logging statements for debugging.

FUNCTIONS

None of the functions are exported by default, but they are exportable.

run_deps(%args) -> [STATUSCODE, ERRMSG, RESULT]

Run subroutine in order of dependencies.

Will build dependency tree first and fail with error 412 if cannot solve dependencies.

Will stop after a dependency failed. All subroutines must return 200 or 304 status to be considered as not failed.

Each subroutine will be passed arguments from common_args (if any), item args (if any), and "-ctx" which is the context object. You can call $ctx->sub_res() to find out the result of other subroutines. You can also call $ctx->stash($key[, $value]) to get/set value that can be accessed by other subroutines.

Returns a 3-element arrayref. STATUSCODE is 200 on success, or an error code between 3xx-5xx (just like in HTTP). ERRMSG is a string containing error message, RESULT is the actual result.

Arguments (* denotes required arguments):

  • common_args => hash

    Arguments to pass to every subroutine.

  • dry_run => bool (default 0)

    If set to true, only form dependency tree and return the ordered items.

  • exclude => array

    Exclude items.

  • ignore_errors => bool (default 0)

    If set to true, ignore error when executing a subroutine and move on to the next.

  • item => hash|str

    A single subroutine name/args to execute.

    Example:

    'Package::foo'   # subroutine foo in package Package, will be called with no
                 # args/only common_args

'bar'            # subroutine bar in package main, will be caled with no
                 # args/only common args

{sub=>'Package::baz', args=>{a=>1, b=>2}} # pass args to sub, in addition to
                                          # common_args

    See also 'items' if you want to execute several subroutines in successive order.

  • items => array

    Execute several items.

    An array of zero or more items. See 'item' for more details.

  • load => bool (default 1)

    Whether to require modules.

  • reverse_order => bool (default 0)

    If set to true, reverse order (dependents run first).

  • specs =>

    Instead of searching for specs in %SPEC of appropriate package, search in the specified specs.

    'specs' can be a hash (with package name as key) of hash (with function name as the key) of specs. Or it can be a coderef which will be given %args module => ..., sub => ... and expected to return a spec.

SEE ALSO

Sub::Spec

Sub::Spec::Clause::depends

AUTHOR

Steven Haryanto <stevenharyanto@gmail.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Steven Haryanto.

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