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;