File Coverage

blib/lib/Nagios/Passive.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	6	8	75.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	35	39	89.7

package Nagios::Passive;
use strict;
use Carp;
use Class::Load qw/load_class/;
use version; our $VERSION = qv('0.4.1');

sub create {
  my $this = shift;
  my %opts = ref($_[0]) eq 'HASH' ? %{ $_[0] } : @_;
  my $class;
  if(exists $opts{command_file}) {
    $class = 'Nagios::Passive::CommandFile';
    load_class($class);
  } elsif(exists $opts{checkresults_dir}) {
    $class = 'Nagios::Passive::ResultPath';
    load_class($class);
  } elsif(exists $opts{gearman}) {
    $class = 'Nagios::Passive::Gearman';
    load_class($class);
  } else {
    croak("no backend specified");
  }
  return $class->new(%opts);
}
1;
__END__