#!/usr/bin/perl -w

use lib "./lib";
use SNMP::Class::OID;
use Carp;
use strict;
use warnings;
use Data::Dumper;

my $a = SNMP::Class::OID->new_from_string('xaxaxa',1);
my $b = SNMP::Class::OID->new(".10.2.3");
my $c = SNMP::Class::OID->new(".4.5.6");


print $a->to_string,"\n";
print $b->to_string,"\n";
print $c->to_string,"\n";

my $d = $b + $c;

print $d->to_string,"\n";

print $b < $c;

print $b->length,"\n";
print $c->length,"\n";
print $d->length,"\n";

print "contains\n" if $b->contains($d);

###print $b->compare($c);