lib/ZOOM/IRSpy/Task/Connect.pm

   1
   2 # See ZOOM/IRSpy/Task/Search.pm for documentation
   3
   4 package ZOOM::IRSpy::Task::Connect;
   5
   6 use 5.008;
   7 use strict;
   8 use warnings;
   9
  10 use ZOOM::IRSpy::Task;
  11 our @ISA = qw(ZOOM::IRSpy::Task);
  12
  13 sub new {
  14     my $class = shift();
  15
  16     return $class->SUPER::new(@_);
  17 }
  18
  19 sub run {
  20     my $this = shift();
  21
  22     $this->set_options();
  23
  24     my $conn = $this->conn();
  25     $conn->log("irspy_task", "connecting");
  26     $conn->connect($conn->option("host"));
  27     warn "no ZOOM-C level events queued by $this"
  28         if $conn->is_idle();
  29
  30     $this->set_options();
  31 }
  32
  33 sub render {
  34     my $this = shift();
  35     return ref($this) . " " . $this->conn()->option("host");
  36 }
  37
  38 use overload '""' => \&render;
  39
  40 1;