contrib/PerlLib/Collectd.pm

   1 # collectd - Collectd.pm
   2 # Copyright (C) 2007  Sebastian Harl
   3 #
   4 # This program is free software; you can redistribute it and/or modify it
   5 # under the terms of the GNU General Public License as published by the
   6 # Free Software Foundation; only version 2 of the License is applicable.
   7 #
   8 # This program is distributed in the hope that it will be useful, but
   9 # WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11 # General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License along
  14 # with this program; if not, write to the Free Software Foundation, Inc.,
  15 # 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
  16 #
  17 # Author:
  18 #   Sebastian Harl <sh at tokkee.org>
  19
  20 package Collectd;
  21
  22 use strict;
  23 use warnings;
  24
  25 require Exporter;
  26
  27 our @ISA = qw( Exporter );
  28
  29 our %EXPORT_TAGS = (
  30         'funcs'    => [ qw( plugin_register plugin_unregister
  31                             plugin_dispatch_values plugin_log ) ],
  32         'types'    => [ qw( TYPE_INIT TYPE_READ TYPE_WRITE TYPE_SHUTDOWN TYPE_LOG
  33                             TYPE_DATASET ) ],
  34         'ds_types' => [ qw( DS_TYPE_COUNTER DS_TYPE_GAUGE ) ],
  35         'log'      => [ qw( LOG_ERR LOG_WARNING LOG_NOTICE LOG_INFO LOG_DEBUG ) ],
  36 );
  37
  38 {
  39         my %seen;
  40
  41         push @{$EXPORT_TAGS{'all'}}, grep {! $seen{$_}++ } @{$EXPORT_TAGS{$_}}
  42                 foreach keys %EXPORT_TAGS;
  43 }
  44
  45 Exporter::export_ok_tags('all');
  46
  47 bootstrap Collectd "4.0.0";
  48
  49 1;
  50
  51 # vim: set sw=4 ts=4 tw=78 noexpandtab :
  52