package wireshark;

use warnings;
use strict;

use ip;

sub fork_actions { ip::devices_up }

our $AUTOLOAD;

sub AUTOLOAD {
	my $name = $AUTOLOAD;
	$name =~ s/.*://;   # strip fully-qualified portion

	warn "# $name";

	exec "wireshark -k -i $name";
}

1;
