| Server IP : 127.0.0.1 / Your IP : 216.73.216.48 Web Server : Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.2.12 System : Windows NT DESKTOP-3H4FHQJ 10.0 build 19045 (Windows 10) AMD64 User : win 10 ( 0) PHP Version : 8.2.12 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : D:/xamppkk/perl/lib/Devel/Symdump/ |
Upload File : |
package Devel::Symdump::Export;
require Devel::Symdump;
require Exporter;
use Carp;
use strict;
use vars qw(@ISA @EXPORT_OK $AUTOLOAD);
@ISA=('Exporter');
@EXPORT_OK=(
'packages' ,
'scalars' ,
'arrays' ,
'hashes' ,
'functions' ,
'filehandles' ,
'dirhandles' ,
'ios' ,
'unknowns' ,
);
my %OK;
@OK{@EXPORT_OK}=(1) x @EXPORT_OK;
push @EXPORT_OK, "symdump";
# undocumented feature symdump() -- does it save enough typing?
sub symdump {
my @packages = @_;
Devel::Symdump->new(@packages)->as_string;
}
AUTOLOAD {
my @packages = @_;
(my $auto = $AUTOLOAD) =~ s/.*:://;
confess("Unknown function call $auto") unless $OK{$auto};
my @ret = Devel::Symdump->new->$auto(@packages);
return @ret;
}
1;