File Coverage

blib/lib/Module/Functions.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	7	8	87.5
condition	3	6	50.0
subroutine	9	9	100.0
pod	2	2	100.0
total	57	61	93.4

package Module::Functions;
use strict;
use warnings;
use 5.008005;
our $VERSION = '2.1.3';

use parent qw/Exporter/;

use Sub::Identify ();

our @EXPORT = qw(get_public_functions);
our @EXPORT_OK = qw(get_full_functions);

sub get_public_functions {
    my $klass = shift || caller(0);
    my @functions;
    no strict 'refs';
    my %class = %{"${klass}::"};
    while (my ($k, $v) = each %class) {
        next if $k =~ /^(?:BEGIN|UNITCHECK|INIT|CHECK|END|import)$/;
        next if $k =~ /^_/;
        next unless *{"${klass}::${k}"}{CODE};
        next if $klass ne Sub::Identify::stash_name( $klass->can($k) );
        push @functions, $k;
    }
    return @functions;
}

sub get_full_functions {
    my $klass = shift || caller(0);
    no strict 'refs';
    return keys %{"${klass}::"};
}

1;
__END__