#! /usr/bin/perl

use Net::ISC::DHCPd::OMAPI;

    my $omapi = Net::ISC::DHCPd::OMAPI->new( key => 'omkey ' . 'xxxxxx' );
    $omapi->connect or die "Could not connect to server: ".$omapi->errstr."\n";

# as per cpan page
#    my $failover = $omapi->new_object("failover",(name => 'st1_dhcpb'));

# omapi cpan page
#    my $failover = $omapi->new_object(failover=>(name => 'st1_dhcpb',));

# as per POD
#   my %failover_hash = ( 'name' => 'st1_dhcpb');
#    my $failover = $omapi->new_object("failover" => %failover_hash);

# as per github example
    my $failover = $omapi->new_object('failover') or
                    die "Could not create failover: ".$omapi->errstr."\n";

    $failover->name('st1_dhcpb');

# Try to get info (equiv to cli 'open' cmd)
    $failover->read  or die "Could not read failover: ".$omapi->errstr."\n";

##</code><code>##

$ port 7911
$ server 127.0.0.1
$ key omkey xxxxxx
$ connect
obj: <null>
$ new failover
obj: failover
$ open
can't open object: not found
obj: failover
$ close
obj: <null>
Could not read failover:

##</code><code>##

 omshell
> server localhost
> port 7911
> key omkey "xxxxxx"
> connect
obj: <null>
> new failover-state
obj: failover-state
> set name = "st1_dhcpb"
obj: failover-state
name = "st1_dhcpb"
> open
obj: failover-state
name = "st1_dhcpb"
partner-address = 00:00:71:02:00:00:00:00
.
.
.
partner-state = 00:00:00:02
local-state = 00:00:00:02
.