Steven Haryanto
and 1 contributors


Perinci::Gen::ForModule - Generate metadata for a module


version 0.03


In Foo/

 package Foo::Bar;
 sub sub1 { ... }
 sub sub2 { ... }

In another script:

 use Perinci::Gen::FromModule qw(gen_meta_for_module);

Now Foo::Bar has metadata stored in %Foo::Bar::SPEC.


This module provides gen_meta_for_module().

This module uses Log::Any for logging framework.

This module has Rinci metadata.



Perinci, Rinci


gen_meta_for_module(%args) -> [status, msg, result, meta]

Generate metadata for a module.

This function can be used to automatically generate Rinci metadata for a "traditional" Perl module which do not have any. Currently, only a plain and generic package and function metadata are generated.

The resulting metadata will be put in %::SPEC. Functions that already have metadata in the %SPEC will be skipped. The metadata will have C property set to true, C set to C, and C set to C ["any" => {schema=>'any', pos=>0, greedy=>1}]}>. In the future, function's arguments (and other properties) will be parsed from POD (and other indicators).

Arguments ('*' denotes required arguments):

  • exclude_subs => array|str (default: "^_")

    If specified, exclude these subs.

    By default, exclude private subroutines (subroutines which have _ prefix in their names).

  • include_subs => array|str

    If specified, only include these subs.

  • load* => bool (default: 1)

    Whether to load the module using require().

  • module* => str

    The module name.

Return value:

Returns an enveloped result (an array). First element (status) is an integer containing HTTP status code (200 means OK, 4xx caller error, 5xx function error). Second element (msg) is a string containing error message, or 'OK' if status is 200. Third element (result) is optional, the actual result. Fourth element (meta) is called result metadata and is optional, a hash that contains extra information.


Steven Haryanto <>


This software is copyright (c) 2012 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.