Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: use Very::Long::Module::Name as Foo;

by Abigail-II (Bishop)
on Oct 14, 2003 at 14:40 UTC ( #299125=note: print w/replies, xml ) Need Help??

in reply to use Very::Long::Module::Name as Foo;

Here's a different way, also using a '', but no source filters. Usage:
use as Name => "Very::Long::Class::Name", args ...;
And this is the code:
package as; use strict; use warnings; sub import { my $class = shift; die "Usage: 'use as Name => Very::Long::Class::Name [args...]'" unless @_ >= 2; my $caller = caller (); my ($short, $long) = splice @_ => 0, 2; no strict 'refs'; @{"${short}::ISA"} = $long; eval <<" --"; package $caller; require $long; $short -> import (\@_) if $short -> can ("import"); -- die $@ if $@; } 1;

This follows a similar syntax as 'use if CONDITION, MODULE => ARGS'.


Replies are listed 'Best First'.
Re: Re: use Very::Long::Module::Name as Foo;
by liz (Monsignor) on Oct 14, 2003 at 15:33 UTC
    This is essentially the same API as Package::Alias, although different under the hood.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://299125]
[1nickt]: This is not to suggest that Karl should remove his slogan. Just thoughts of mine... Trust me I believe I am very much more radical than most, and if I had a slogan for every gross injustice in my sig, there would be no more bytes!
Discipulus redskins .. well native american..
[1nickt]: So if I was to offer any editorial advice it would be to (1) make it endure time passing (2) make it positive (3) make it about you and your beliefs
[1nickt]: (Disicpulus The new best choice is maybe "First People"
[karlgoethebier]: Discipulus: This is called "Volksverhetzung" in German which means
[karlgoethebier]: incitement of the people and it is prohibited by law
[1nickt]: The best sign I have sign in a protest march was carried by a kid of about 10 years "If you build a wall my generation will tear it down."
[1nickt]: ... sign I have seen ...
[1nickt]: Now that one made me hopeful! First time not angry in a long time when I saw that kid.
[Discipulus]: i propend for removing: why? because we are so few that we must find i minimal common divisor, this is certainly Perl not our (anyway private) thougths. And i say this still wondering because i love a lot freedom of expression. And i say this not for roho

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (10)
As of 2017-06-22 12:12 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (519 votes). Check out past polls.