Permalink
Fetching contributors…
Cannot retrieve contributors at this time
35 lines (30 sloc) 1020 Bytes
###############################################################################
#
# Sub Name: listMethods
#
# Description: Read the current list of methods from the server object
# and return the names in a list reference.
#
# Arguments: NAME IN/OUT TYPE DESCRIPTION
# $srv in ref Server object instance
# $pat in scalar If passed, a substring to match
# names against. NOT a regex!
#
# Globals: None.
#
# Environment: None.
#
# Returns: listref
#
###############################################################################
sub listMethods
{
use strict;
my $srv = shift;
my $pat = shift;
my @list = sort $srv->list_methods;
# Exclude any that are hidden from introspection APIs
@list = grep(! $srv->get_method($_)->hidden, @list);
@list = grep(index($_, $pat) != -1, @list) if ($pat);
\@list;
}