package NWLoader;
require 5.002 ;
require DynaLoader;
require Exporter;
use Carp ;
use strict;
use vars qw($VERSION @ISA @EXPORT) ;

@ISA = qw(Exporter DynaLoader);
@EXPORT = qw( filter_add );
$VERSION = "0.01" ;

sub filter_add
{
   my $obj = 0 ;

    #Did we get a code reference?
   my $coderef = (ref $obj eq 'CODE') ;

    #If the parameter isn't already a reference, make it one.
   $obj = \$obj unless ref $obj ;

   $obj = bless ($obj, (caller)[0]);

    #finish off the installation of the filter in C.
   NWLoader::real_import($obj,(caller)[0],"");
}

sub import
{
filter_add( );
 }

bootstrap NWLoader $VERSION;

1;

__END__