CPAN::Groonga

e Scalar::Util qw(looks_like_number);
use File::Temp   qw/ tempdir /;
use String::ShellQuote;
use JSON;
use Data::Dumper;

=head1 NAME

Check::NetworkSpans - See if bidirectional traffic is being seen

p' ) {
			my $pcap_json = `tshark -r "$span_name".pcap -T json -J "ip eth tcp udp" 2> /dev/null`;
			if ( $self->{debug} ) {
				print 'DEBUG: dumped ' . $span_name . ".pcap to json\n";
			}
			eval {

cessing json\n";
				}
				my $pcap_data = decode_json($pcap_json);
				$span_packets->{$span_name} = $pcap_data;
			};
			if ($@) {
				if ( $self->{debug} ) {
					print 'DEBUG: parsing json failed.