135/snmp-info
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

version of all_methods using positional array for sub/global/func

Browse Source
This commit is contained in:
Oliver Gorwits
2014-06-19 16:42:36 +01:00
parent c60a04f530
commit c6b3c45412
1 changed files with 17 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Info/MRO.pm
View File

@@ -155,17 +155,29 @@ sub all_methods {
my $class = (ref $self ? ref $self : $self);
my $results = subroutines( $class );
$results = { map { $_ => [ $results->{$_}, [], [] ] }
keys %$results };
my $globals = globals( $class );
foreach my $key (keys %$globals) {
next if exists $results->{$key};
$results->{$key} = [ map { keys %$_ } @{ $globals->{$key} } ];
my $data = [ map { keys %$_ } @{ $globals->{$key} } ];
if (exists $results->{$key}) {
$results->{$key}->[1] = $data;
}
else {
$results->{$key} = [ [], $data, [] ];
}
}
my $funcs = funcs( $class );
foreach my $key (keys %$funcs) {
next if exists $results->{$key};
$results->{$key} = [ map { keys %$_ } @{ $funcs->{$key} } ];
my $data = [ map { keys %$_ } @{ $funcs->{$key} } ];
if (exists $results->{$key}) {
$results->{$key}->[1] = $data;
}
else {
$results->{$key} = [ [], [], $data ];
}
}
return $results;
@@ -349,7 +361,7 @@ Oliver Gorwits <oliver@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by The Netdisco Project.
This software is copyright (c) 2014 by The SNMP::Info Project.
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met: