File Coverage

blib/lib/Monitoring/TT/Identifier.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	21	21	100.0

package Monitoring::TT::Identifier;

use strict qw{vars subs};
use warnings;
use utf8;

#####################################################################

=head1 NAME

Monitoring::TT::Identifier - Identify Functions

=head1 DESCRIPTION

Helper to indentify functions of a module

=cut

#####################################################################

=head1 METHODS

=head2 functions

    functions(name)

    returns list of functions

=cut

sub functions {
    my($name) = @_;
    # Get all the CODE symbol table entries
    my @functions = sort grep { /\A[^\W\d]\w*\z/mxso }
        grep { defined &{"${name}::$_"} }
        keys %{"${name}::"};
    return \@functions;
}

#####################################################################

=head1 AUTHOR

Sven Nierlein, 2013,

=cut

1;