Select Code to Download

syntax error at Logger.pm line 60, near "format $FH "

Can't coerce UNKNOWN to string in formline at Logger.pm line 94.

sub lwrite{
    my($self,$msg,$value)=@_;            # args == object, message and
+ optional value
...
    carp "$error\n" if $$self{CARP};        # Carp if an error with th
+is object
    $self->lwrite($error,$value);        # Send the message and value 
+to "lwrite" sub above
}

######################################################################
+##########
# NAME: Logger
...
}

1;

 
use Logger;

...
$log->log("A",1);
    $log->log("qwertyuiopasdfghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwe
+rtyuiopasdfghjklzxcvbnm ",1);
    $log->log("12345690123456789012345678990",1);