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