­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ ­ package Fastcomet::Nightwatch::STDERRLogger; use strict; use warnings; use Fastcomet::Nightwatch::Util; sub TIEHANDLE { my $class = shift; bless [], $class; } sub PRINT { my $self = shift; return unless defined $Fastcomet::Nightwatch::Util::logger; chomp(@_); $Fastcomet::Nightwatch::Util::logger->warn(@_); } sub OPEN { my $self = shift; } 1;