| Included libraries | Package variables | General documentation | Methods |
| Package variables | Top |
| No package variables defined. |
| Included modules | Top |
| Clair::Utils::ALE qw ( %ALE_ENV ) |
| Exporter |
| Inherit | Top |
| Exporter |
| Synopsis | Top |
| Description | Top |
| Methods | Top |
| import | No description | Code |
| import | description | prev | next | Top |
sub import
{
if (!$ALE_ENV{ALE_NORMALIZE_URL})
{
$ALE_ENV{ALE_NORMALIZE_URL}='Clair::ALE::Default::NormalizeURL';
}
if ($ALE_ENV{ALE_NORMALIZE_URL} =~ /^(Clair::ALE::[\w:]+)$/)
{
eval "require $1";
}
else
{
die "Invalid class name for ALE_NORMALIZE_URL\n";
}
die $@ if $@;
$ALE_ENV{ALE_NORMALIZE_URL}->export_to_level(1,@_);} |