Beta Shell v2.0

Beta Shell v2.0 · web2.us.cloudlogin.co

[FM] [CMD] [PHP] [DB] [INFO] [SEC]

File Manager

~ /usr/share/perl5/vendor_perl/Devel/Symdump

3 items

Name	Size	Perms	Modified	Actions
[ .. / .. ]
Export.pm	739 B	-rw-r--r--	2013-03-24 04:08:46	Edit Del

Editing: Export.pm (739 B)

Path: /usr/share/perl5/vendor_perl/Devel/Symdump/Export.pmBack

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;