view release on metacpan or  search on metacpan

admin/mhaadmin.cgi  view on Meta::CPAN

my @body_attr = (
    '-bgcolor'	=> "#dddddd",
    '-text'	=> "#000000",
    '-link'	=> "#0000ee",
    '-vlink'	=> "#551a8b",
    '-alink'	=> "#ff0000",
);

MAIN: {
    $Rc = require 'mhaadmin.rc' or
	croak qq/Error: Unable to require resource file\n/;

    if ($Debug) { warn '@INC=', join(':', @INC), "\n"; }

    $menulogo	= "$Rc->{'iconurl'}/mhaicon.png";
    $noteicon	= "$Rc->{'iconurl'}/mhanote_s.png";

    $ENV{'M2H_LOCKMETHOD'} = $Rc->{'lockmethod'}
	if defined($Rc->{'lockmethod'});

lib/MHonArc/CharMaps.pm  view on Meta::CPAN

    my $map = $self->{'_maps'}{$charset};
    return $map if defined($map);

    my $file = $self->{'_tbl'}{$charset};
    if (!defined($file)) {
        carp 'Warning: Unknown charset: ', $charset, "\n";
        $map = $self->{'_maps'}{$charset} = {};

    } else {
        delete $INC{$file};
        eval { $map = $self->{'_maps'}{$charset} = require $file; };
        if ($@) {
            carp 'Warning: ', $@, "\n";
            $map = $self->{'_maps'}{$charset} = {};
        }
    }
    $map;
}

##---------------------------------------------------------------------------##
1;