Advertise here: Contact FM.
indented text
at
different
levels
But as you can see there is some unflattering spacing going on.sub import { my $pkg = shift; @_ = @Config::EXPORT unless @_; my @funcs = grep $_ ne '%Config', @_; my $export_Config = @funcs < @_ ? 1 : 0; no strict 'refs'; my $callpkg = caller(0); foreach my $func (@funcs) { die sprintf qq{"%s" is not exported by the %s module\n}, $func, __PACKAGE__ unless $Export_Cache{$func}; *{$callpkg.'::'.$func} = \&{$func}; } *{"$callpkg\::Config"} = \%Config if $export_Config; return;}
sub import {
my $pkg = shift;
@_ = @Config::EXPORT unless @_;
my @funcs = grep $_ ne '%Config', @_;
my $export_Config = @funcs < @_ ? 1 : 0;br>
no strict 'refs';
my $callpkg = caller(0);
foreach my $func (@funcs) {
die sprintf qq{"%s" is not exported by the %s module\n},
$func, __PACKAGE__ unless $Export_Cache{$func};
*{$callpkg.'::'.$func} = \&{$func};
}
*{"$callpkg\::Config"} = \%Config if $export_Config;
return;
}
>Like this. I can't help it. Old school.Or the UL /UL tags
This could help?
|\ R1 | \in ---/\/\/\---o------o-----o------|amp >------ out | | | | / \ -- -- |/ / \/ /\ \ -- -- R2 / | D1 | D2 | | | --- --- ---
posted by Robert Angelo at 2:51 PM on June 29, 2006