blob: eee6bbe4af1596adec1c7f847fa70c9339e2a223 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Title: How to use libproxy in Perl
Slug: snippets
# How to use libproxy in Perl
```
#!/usr/bin/perl
use warnings;
use Glib::Object::Introspection;
Glib::Object::Introspection->setup(
basename => 'Px',
version => '1.0',
package => 'Px');
my $pf = new Px::ProxyFactory;
$proxies = $pf->get_proxies("https://github.com/libproxy/libproxy");
foreach my $proxy (@$proxies) {
print $proxy."\n";
}
```
|