File Coverage

blib/lib/dateheader.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	29	29	100.0

package dateheader;

use 5.00000;
use strict;
use vars qw( $VERSION );
$VERSION='1.0';
my @days=qw/Sun Mon Tue Wed Thu Fri Sat/;
my @months=qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/;

sub TIESCALAR{
	my $x;
	bless \$x;
};
sub FETCH{
   my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)
   =  gmtime(time);
   #adjust date for printability:
   $year += 1900;
   # zero-pad time-of-day components
   $hour = substr("0$hour", -2);
   $min = substr("0$min", -2);
   $sec = substr("0$sec", -2);

   # rfc 2822.3.3 says we should use -0000 but not all MUAs understand that
   return
   # "Date: $days[$wday], $mday $months[$mon] $year $hour:$min:$sec +0000";
   "Date: $days[$wday], $mday $months[$mon] $year $hour:$min:$sec -0000";
};

# tie $dateheader, 'dateheader';

sub import{
	no strict 'refs';
	# *{caller().'::dateheader'} = $dateheader;
	tie ${caller().'::dateheader'}, 'dateheader';
};


1;
__END__