view release on metacpan or  search on metacpan

lib/AppConfig/Exporter.pm  view on Meta::CPAN

    my $class = shift;
    my @tags  = @_;
    {
	no strict qw( refs ) ;
	for my $section ( @tags ) {
	    push @EXPORT_OK, "\%$section";
	    *{"$section"} = { $appconfig->varlist("^${section}_", 1) };
	    __PACKAGE__->export_to_level( 1, $class, "\%$section" );
	}
    }
    my $callpkg = caller(0);
    eval "package $callpkg; use AppConfig qw(:argcount);";
    die $@ if $@;
}

=item AppConfig

You can use this to access the the raw B<AppConfig> object that the exporter sources for configuration. 

=back