From 5dd3e258e6d1fa7ce19e048e10e1a1dbf7c7223f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C6var=20Arnfj=F6r=F0=20Bjarmason?= <avarab@gmail.com>
Date: Mon, 4 Jan 2010 18:10:02 +0100
Subject: [PATCH] Initial version

---
 plugins/other/cpanp_o | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 plugins/other/cpanp_o

diff --git a/plugins/other/cpanp_o b/plugins/other/cpanp_o
new file mode 100755
index 00000000..3d30ebd3
--- /dev/null
+++ b/plugins/other/cpanp_o
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+use Modern::Perl;
+
+given ($ARGV[0]) {
+    when ("config") {
+        print <<END;
+graph_title CPAN modules not up to date
+graph_args --base 1000 -l 0
+graph_vlabel modules
+graph_category CPAN
+graph_info The number of installed CPAN modules that aren't up to date
+count.label modules
+count.type GAUGE
+count.info The number of CPAN modules that aren't up to date
+END
+    }
+    default {
+        my $num = () = qx[cpanp -o];
+        say "count.value $num";
+    }
+}