# $Id: Header.pm,v 1.9 2003/09/29 21:20:13 clajac Exp $ package CPANXR::Apache::Header; use strict; my $header = q{ CPAN Cross Reference (ALPHA)
}; sub header { my ($self, $r) = @_; $r->print($header); } 1;