package Example;
use strict;

#
# Create a constructor for the module
sub new
{
	my ( $classname ) = @_;
	my $self = {};

	bless( $self, $classname );

	return( $self );
}

#
# we're going to hook this call back
sub OnUserMsg
{
	my ( $me, $target, $msg ) = @_;
	ZNC::PutModule( "WTF!?, you dare to say [$msg] towards [$target]?!" );
	return( ZNC::CONTINUE );
}

sub OnShutdown
{
	my ( $me ) = @_;
}

1;