Munin contributed plugins

#!/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";

    }

}