1
2use strict;
3use Class::Generate qw(class);
4
5class 'Nmap::Scanner::ScanInfo' => {
6    qw(type        $
7       protocol    $
8       numservices $
9       services    $),
10    '&as_xml' => q!
11
12    return qq(<scaninfo type="$type" protocol="$protocol" ) .
13           qq(numservices="$numservices" services="$services"/>\n);
14
15    !
16};
17
18=pod
19
20=head1 DESCRIPTION
21
22This class represents Nmap Summary/scan information.
23
24=head1 PROPERTIES
25
26=head1 DESCRIPTION
27
28This class represents Nmap Summary/scan information.
29
30=head1 PROPERTIES
31
32=head2 type()
33
34=head2 protocol()
35
36=head2 numservices()
37
38=head2 services()
39
40=cut
41
421;
43