File Coverage

blib/lib/Acme/SWUECHO/Meta.pm

Criterion	Covered	Total	%
statement	21	37	56.7
branch	0	2	0.0
condition			n/a
subroutine	7	10	70.0
pod	2	3	66.6
total	30	52	57.6

package Acme::SWUECHO::Meta;

use strict;
use 5.008_005;
our $VERSION = '0.02';
use PPI;
use Carp;
use Pod::Simple::Search;
use Exporter::Auto;


sub subs_in_current_pkg {
    my $module = caller;
    no strict 'refs';
    grep { defined *{"${module}::$_"}{CODE} } keys %{"${module}::"};

    # &{"${module}::$_"} equal to  defined *{"$module\::$_"}{CODE}
    # why \::?

}

## TOOD: better ways to find module path
sub module_path {
    my $module = shift;

    # From This::That to This/That.pm
    s/::/\//g, s/$/.pm/ for $module;
    require $module ;
    $INC{$module} ;
}



sub subs_in_pkg {
    my %all_sub;
    my $doc = PPI::Document->new(module_path(shift)) or croak 'no package name are given';
    my $subs = $doc->find('PPI::Statement::Sub');
    for my $sub ( @{$subs} ) {
        $all_sub{ $sub->name } = $sub->content    # unless $sub->forward ;
    }

    keys %all_sub;
}



1;
__END__