our $OUTPUT_FILEHANDLE = \*STDOUT;
our $VERSION = '0.001002';
-our @DEFAULT_INBOX = (
- "/var/mail/$ENV{USER}",
- "$ENV{HOME}/Maildir/",
-);
+our @DEFAULT_INBOX;
+push @DEFAULT_INBOX, "/var/mail/$ENV{USER}" if exists $ENV{USER};
+push @DEFAULT_INBOX, "$ENV{HOME}/Maildir" if exists $ENV{HOME};
+
+sub format_time { strftime '%c', localtime shift }
sub run {
my $config = Config::Auto->new(format => 'yaml')->parse;
my $addrlen = max map { length } values %lastaddr;
for (sort { $lastmsg{$b} <=> $lastmsg{$a} } keys %lastmsg) {
- my $time = strftime '%c', localtime $lastmsg{$_};
+ my $time = format_time $lastmsg{$_};
printf $OUTPUT_FILEHANDLE "%-${idlen}s %-${addrlen}s %s\n", $_, $lastaddr{$_}, $time;
}