From 737f4cd712fca5a307a77988ca70500b97ab360c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 11 Aug 2004 06:19:25 +0000
Subject: help perl_checker on drakx code

---
 perl_checker_fake_packages/Net/DNS.pm      |  7 +++++++
 perl_checker_fake_packages/Net/Ping.pm     |  9 +++++++++
 perl_checker_fake_packages/URPM/Resolve.pm | 17 +++++++++++++++++
 perl_checker_fake_packages/urpm.pm         |  9 +++++++++
 4 files changed, 42 insertions(+)
 create mode 100644 perl_checker_fake_packages/Net/DNS.pm
 create mode 100644 perl_checker_fake_packages/Net/Ping.pm
 create mode 100644 perl_checker_fake_packages/URPM/Resolve.pm
 create mode 100644 perl_checker_fake_packages/urpm.pm

(limited to 'perl_checker_fake_packages')

diff --git a/perl_checker_fake_packages/Net/DNS.pm b/perl_checker_fake_packages/Net/DNS.pm
new file mode 100644
index 0000000..e300f12
--- /dev/null
+++ b/perl_checker_fake_packages/Net/DNS.pm
@@ -0,0 +1,7 @@
+package Net::DNS;
+
+package Net::DNS::Resolver;
+
+sub new {}
+sub query {}
+sub answer {}
diff --git a/perl_checker_fake_packages/Net/Ping.pm b/perl_checker_fake_packages/Net/Ping.pm
new file mode 100644
index 0000000..1a8f8a9
--- /dev/null
+++ b/perl_checker_fake_packages/Net/Ping.pm
@@ -0,0 +1,9 @@
+package Net::Ping;
+
+sub new {
+    my ($_class, @_l) = @_;
+}
+
+sub ping {
+    my ($_class, $_host, $_o_timeout) = @_;
+}
diff --git a/perl_checker_fake_packages/URPM/Resolve.pm b/perl_checker_fake_packages/URPM/Resolve.pm
new file mode 100644
index 0000000..55eadfb
--- /dev/null
+++ b/perl_checker_fake_packages/URPM/Resolve.pm
@@ -0,0 +1,17 @@
+package URPM::Resolve;
+
+our @ISA = qw();
+
+sub resolve_requested {
+    my ($_urpm, $_db, $_state, $_requested, %_options) = @_;
+}
+sub request_packages_to_upgrade {
+    my ($_urpm, $_db, $_state, $_requested, %_options) = @_;
+}
+
+sub disable_selected {
+    my ($_urpm, $_db, $_state, @_closure) = @_;
+}
+sub compute_installed_flags {
+    my ($_urpm, $_db) = @_;
+}
diff --git a/perl_checker_fake_packages/urpm.pm b/perl_checker_fake_packages/urpm.pm
new file mode 100644
index 0000000..0fc3515
--- /dev/null
+++ b/perl_checker_fake_packages/urpm.pm
@@ -0,0 +1,9 @@
+package urpm;
+
+sub new {
+    my ($_class) = @_;
+}
+
+sub read_config {
+    my ($_urpm, %_options) = @_;
+}
-- 
cgit v1.2.1