package ZOOM::IRSpy::Test::Quick; use 5.008; use strict; use warnings; use ZOOM::IRSpy::Test; our @ISA = qw(ZOOM::IRSpy::Test); sub subtests { qw(Ping Record::PiggyBack) } sub timeout { 20 } sub start { my $class = shift(); my($conn) = @_; $conn->log("irspy_test", "Quick test no-opping"); } 1;