1 2use strict; 3use Class::Generate qw(class); 4 5class 'Nmap::Scanner::Task' => { 6 qw(name $ 7 begin_time $ 8 end_time $), 9 '&as_xml' => q! 10 11 return qq(<taskbegin task="$name" time="$begin_time"/>\n) . 12 qq(<taskend task="$name" time="$end_time"/>\n); 13 14 ! 15}; 16 17=pod 18 19=head1 DESCRIPTION 20 21This class represents Nmap live task status messages (taskend and 22taskbegin elements in XML). 23 24=head1 PROPERTIES 25 26=head2 name() 27 28=head2 begin_time() 29 30=head2 end_time() 31 32=cut 33 341; 35