NAME

namespace - Perl pragma to use like C++ namespace aliasing

SYNOPSIS

use namespace File => IO::File;

my $fh = new File "foo", O_CREAT|O_WRONLY;
if( defined $fh )
{
    print $fh "bar\n";
    $fh->close;
}

DESCRIPTION

Allow aliasing namespace. May be useful for reusability increase.

use namespace ALIAS => PACKAGE 
   [, qw/IMPORT_LIST [ ::SUBPACKAGE [ IMPORT_LIST ]] /];

ALIAS and PACKAGE is required parameters;
IMPORT_LIST is the usual list of import.

Also may be undefined namespace and they subnamespaces:

no namespace ALIAS;

If ALIAS begin with '::', then alias will be expandet to caller namespace. If following example of pragma namespace called from main:: module, then alias will be expandet to main::ALIAS::.

use namespace ::ALIAS => PACKAGE
   

EXAMPLES

EXAMPLE 1

use namespace DOM => XML::DOM, qw/$VERSION ::Document $VERSION/;

   # DOM is alias for XML::DOM
   #       $VERSION from XML::DOM will be imported to DOM
   #
   # ::Document subpackage of XML::DOM will be aliased to DOM::Document
   #       $VERSION from XML::DOM::Document will be imported to DOM::Document

my $doc = new DOM::Document;
print "Current used DOM version is $DOM::VERSION \n";

no namespace DOM;

   # namespace DOM and all subnamespaces will be destroyed



EXAMPLE 2

use namespace DOM => XML::DOM, qw/::Document/;
# or
# use namespace DOM => XML::Sablotron::DOM, qw/:constants ::Document/;

my $doc = new DOM::Document;
print "Constant 'TEXT_NODE' = ", TEXT_NODE;

AUTHOR

Albert MICHEEV <amichauer@cpan.org>