package SNMPMonitor::Plugin::Btest;

use strict;
use warnings;

#use common::sense;
use NetSNMP::ASN     (':all');
# use Smart::Comments;

my @ISA = qw(SNMPMonitor::Plugin);

sub set_plugin_oid {'1.1.1'};

sub monitor {
    use Data::Dumper;
    print STDERR "--> In Object \nDumper: " . Dumper @_;
    my $class = shift;
    my ($handler, $registration_info, $request_info, $requests) = @_;
    my $request;

#    do {
#        print STDERR "refs: ",join(", ", ref($handler), ref($registration_info),
#                   ref($request_info), ref($requests)),"\n";
#        print STDERR "processing a request of type " . $request_info->getMode() . "\n";
#    };

    my $this_request = $requests->next();

    $requests->setValue(ASN_OCTET_STR, "BTest Successful");

}

sub print_test {

    my $self = shift;
    print STDERR "In " . $self->{'name'} . "\n";

    my $a = 0;

    ### @_;
}

1;
__END__