Select Code to Download

Bareword found where operator expected at /home/tatsu/Perl/MyLog/MyLog
+.pm line 36, near "} encode"
    (Missing operator before encode?)
syntax error at /home/tatsu/Perl/MyLog/MyLog.pm line 36, near "} encod
+e"
Compilation failed in require at logtest.pl line 6.
BEGIN failed--compilation aborted at logtest.pl line 6.

use utf8;
use Time::Piece;
...
}

1;

sub log {
  my $self = shift;
...
}

1;

use strict;
use warnings;
...
$mylog->log();
$mylog->log('');
$mylog->log('a', 'b');