package SNMPMonitor::Plugin::Atest;

use strict;
use warnings;

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

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

sub set_plugin_oid {'0.0.0'};

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

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

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

sub print_test {
    my $self = shift;
    print STDERR "In " . $self->full_name . "\n";

}

1;
__END__