# NOTE: Derived from lib/Env/PS1.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Env::PS1;

#line 206 "lib/Env/PS1.pm (autosplit into blib/lib/auto/Env/PS1/D.al)"
sub D  {
	return sub {
		my $t = localtime;
		$t =~ m/^(\w+\s+\w+\s+\d+)/;
		return $1;
	} if $_[1] eq 'd';

	use POSIX qw(strftime);
	my $format =
		($_[1] eq 't') ? '%H:%M:%S' :
		($_[1] eq 'T') ? '%I:%M:%S' :
		($_[1] eq '@') ? '%I:%M %p' :
		($_[1] eq 'A') ? '%H:%M'    : $_[2] ;

	return sub { strftime $format, localtime };
}

# end of Env::PS1::D
1;
