#!/usr/bin/perl use strict; use warnings; use Class::Util; sub dsym { my($hashRef) = shift; my(%symbols); my(@symbols); %symbols = %{$hashRef}; @symbols = sort(keys(%symbols)); foreach (@symbols) { printf("%-10.10s| %s\n", $_, $symbols{$_}); } } print dsym(\%Class::Util::);
In reply to Re: Check if a package exists
by Khen1950fx
in thread Check if a package exists
by Cybris
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |