view release on metacpan or  search on metacpan

local/lib/perl5/IO/Socket/SSL.pm  view on Meta::CPAN

540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
                eval { require Mozilla::CA; 1 };
            };
 
        $ca_detected = 1;
        return %default_ca;
    }
}
 
 
# Export some stuff
# inet4|inet6|debug will be handled by myself, everything
# else will be handled the Exporter way
sub import {
    my $class = shift;
 
    my @export;
    foreach (@_) {
        if ( /^inet4$/i ) {
            # explicitly fall back to inet4
            @ISA = 'IO::Socket::INET';
            @caller_force_inet4 = caller(); # save for warnings for 'inet6' case
        } elsif ( /^inet6$/i ) {
            # check if we have already ipv6 as base
            if ( ! UNIVERSAL::isa( $class, 'IO::Socket::INET6')
                and ! UNIVERSAL::isa( $class, 'IO::Socket::IP' )) {
                # either we don't support it or we disabled it by explicitly
                # loading it with 'inet4'. In this case re-enable but warn
                # because this is probably an error
                if ( CAN_IPV6 ) {
                    @ISA = ( CAN_IPV6 );
                    warn "IPv6 support re-enabled in __PACKAGE__, got disabled in file $caller_force_inet4[1] line $caller_force_inet4[2]";
                } else {