File Coverage

blib/lib/Net/P0f/Backend/XS.pm
Criterion Covered Total %
statement 9 15 60.0
branch 0 2 0.0
condition 0 3 0.0
subroutine 3 5 60.0
pod 2 2 100.0
total 14 27 51.8


line stmt bran cond sub pod time code
1             package Net::P0f::Backend::XS;
2 1     1   1686 use strict;
  1         3  
  1         42  
3 1     1   7 use Carp;
  1         1  
  1         85  
4              
5 1     1   6 { no strict;
  1         2  
  1         274  
6             $VERSION = 0.02;
7             @ISA = qw(Net::P0f);
8             }
9              
10             =head1 NAME
11              
12             Net::P0f::Backend::XS - Back-end for C that links to the P0f library
13              
14             =head1 VERSION
15              
16             Version 0.01
17              
18             =head1 SYNOPSIS
19              
20             use Net::P0f;
21              
22             my $p0f = Net::P0f->new(backend => 'xs', ...);
23             ...
24              
25             =head1 DESCRIPTION
26              
27             This module is a back-end helper for B.
28             It provides an interface to pilot the libp0f library.
29              
30             See L for more general information and examples.
31              
32             =head1 METHODS
33              
34             =over 4
35              
36             =item init()
37              
38             This method initialize the backend-specific part of the object.
39             It is automatically called by C during the object creation.
40              
41             B
42              
43             =over 4
44              
45             =item *
46              
47             C - XXX
48              
49             =back
50              
51             =cut
52              
53             sub init {
54 0     0 1   my $self = shift;
55 0           my %opts = @_;
56              
57             # declare my specific options
58             #$self->{options}{XXX} = '';
59            
60             # initialize my options
61 0           for my $opt (keys %opts) {
62 0 0 0       exists $self->{options}{$opt} ?
63             ( $self->{options}{$opt} = $opts{$opt} and delete $opts{$opt} )
64             : carp "warning: Unknown option '$opt'";
65             }
66             }
67              
68             =item run()
69              
70             =cut
71              
72             sub run {
73 0     0 1   my $self = shift;
74 0           die "*** ",(caller(0))[3]," not implemented ***\n"
75             }
76              
77             =back
78              
79              
80             =head1 DIAGNOSTICS
81              
82             These messages are classified as follows (listed in increasing order of
83             desperatin):
84              
85             =over 4
86              
87             =item *
88              
89             B<(W)> A warning, usually caused by bad user data.
90              
91             =item *
92              
93             B<(E)> An error caused by external code.
94              
95             =item *
96              
97             B<(F)> A fatal error caused by the code of this module.
98              
99             =back
100              
101             =over 4
102              
103             =item Unknown option '%s'
104              
105             B<(W)> You called an accesor which does not correspond to a known option.
106              
107             =back
108              
109             =head1 SEE ALSO
110              
111             L
112              
113             =head1 AUTHOR
114              
115             SEbastien Aperghis-Tramoni Esebastien@aperghis.netE
116              
117             =head1 BUGS
118              
119             Please report any bugs or feature requests to
120             L, or through the web interface at
121             L.
122             I will be notified, and then you'll automatically
123             be notified of progress on your bug as I make changes.
124              
125             =head1 ACKNOWLEDGEMENTS
126              
127             =head1 COPYRIGHT & LICENSE
128              
129             Copyright 2004 SEbastien Aperghis-Tramoni, All Rights Reserved.
130              
131             This program is free software; you can redistribute it and/or modify it
132             under the same terms as Perl itself.
133              
134             =cut
135              
136             1; # End of Net::P0f::Backend::XS