Select Code to Download

sub my_lc_warn {
  not defined wantarray and warnings::warnif("void", "my_lc used in vo
+id context");
...
     return map lc $_,@_;
  }
}

sub my_lc {
  not defined wantarray and warnings::warnif("void", "my_lc used in vo
+id context");
  return wantarray ? map lc $_,@_ : lc shift;
}

my $lc=lc("A","B");

my $timestr=strftime(@$self);

my $timestr=POSIX::strftime(@{$self}[0..9]);

my @strftime=@{$self}[0..9];
my $timestr=POSIX::strftime(@strftime);