Net::P0f::Backend::XS - Back-end for C<Net::P0f> that links to the P0f library

Net-P0f documentation Contained in the Net-P0f distribution.

Index

Code Index:

NAME

Top

Net::P0f::Backend::XS - Back-end for Net::P0f that links to the P0f library

VERSION

Top

Version 0.01

SYNOPSIS

Top

    use Net::P0f;

    my $p0f = Net::P0f->new(backend => 'xs', ...);
    ...

DESCRIPTION

Top

This module is a back-end helper for Net::P0f. It provides an interface to pilot the libp0f library.

See Net::P0f for more general information and examples.

METHODS

Top

init()

This method initialize the backend-specific part of the object. It is automatically called by Net::P0f during the object creation.

Options

  • XXX - XXX

run()

DIAGNOSTICS

Top

These messages are classified as follows (listed in increasing order of desperatin):

Unknown option '%s'

(W) You called an accesor which does not correspond to a known option.

SEE ALSO

Top

Net::P0f

AUTHOR

Top

Sébastien Aperghis-Tramoni <sebastien@aperghis.net>

BUGS

Top

Please report any bugs or feature requests to bug-net-p0f-xs@rt.cpan.org, or through the web interface at https://rt.cpan.org/NoAuth/ReportBug.html?Queue=Net-P0f. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

ACKNOWLEDGEMENTS

Top

COPYRIGHT & LICENSE

Top

Copyright 2004 Sébastien Aperghis-Tramoni, All Rights Reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Net-P0f documentation Contained in the Net-P0f distribution. 
package Net::P0f::Backend::XS;
use strict;
use Carp;

{ no strict;
  $VERSION = 0.02;
  @ISA = qw(Net::P0f);
}


sub init {
    my $self = shift;
    my %opts = @_;

    # declare my specific options
    #$self->{options}{XXX} = '';
    
    # initialize my options
    for my $opt (keys %opts) {
        exists $self->{options}{$opt} ?
        ( $self->{options}{$opt} = $opts{$opt} and delete $opts{$opt} )
        : carp "warning: Unknown option '$opt'";
    }
}


sub run {
    my $self = shift;
    die "*** ",(caller(0))[3]," not implemented ***\n"
}


1; # End of Net::P0f::Backend::XS