view release on metacpan or  search on metacpan

eg/nagios2bugzilla/talktobugzilla.pl  view on Meta::CPAN

                update_bug($f, $problems{ $lastalias }, \%params);
                push @pleaseclose, $lastalias;
                next FILELOOP
            }

            $log->info("Unable to locate last event $lastalias, processing current event id")

        }

        # skip time'd out plugins if we are going from OK to UNKNOWN
        if ($params{SERVICEOUTPUT} =~ m/^UNKNOWN: Plugin failed: Timeout executing plugin/) {

            $log->info( 'Skipping time\'d out plugin notice' );
            try { if ($delete) { $log->debug('Removing file: ' .$f->basename); $f->remove() }}
            catch { $log->warn(sprintf 'Failed to delete %s because: %s', $f->basename, $_) };
            next FILELOOP

        }

        # create the bug
        create_bug( $f, $alias, \%params );

lib/BZ/Client.pm  view on Meta::CPAN

=head3 Connect Via Socks Proxy

Try something like:

 use HTTP::Tiny; # load this manually
 use IO::Socket::Socks::Wrapper (
  'HTTP::Tiny::Handle::connect()' => {
    ProxyAddr    => 'localhost',
    ProxyPort    => 1080,
    SocksVersion => 4,
    Timeout      => 15
    }
  );
  use BZ::Client ...etc

=head1 INSTANCE METHODS

This section lists the methods, which an instance of BZ::Client can
perform.

=head2 url