return iso path

[pxelator] / lib / PXElator / wireshark.pm

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;