Select Code to Download

Select or download this

{
  # the values of the following hash are subs defined elsewhere
...
    seed( @seed );
  }
}

Select or download this

        elsif ($sym =~ 'auto') {
            # To auto-seed or not
            $auto_seed = $sym =~ /no|!/;

        }

Select or download this

        elsif ($sym =~ /^(no|!)?auto$) {
          $auto_seed = not defined $1;
        }

Select or download this

        elsif ($sym eq 'auto') {
          # To auto-seed or not
          $auto_seed = 1;  # default value for $auto_seed should be 0
        }

Select or download this

        {
           no strict 'refs';
           *{"${pkg}::$sym"} = \&$sym;
        }

Select or download this

            eval { require LWP::UserAgent; };
            if ($@) {
                push(@errors, "Failure loading LWP::UserAgent: $@");
                next;
            }

Select or download this

            eval { require LWP::UserAgent }
              or do {
...
                        "Failure loading LWP::UserAgent: $@";
                      next;
                    };