Help for this page
... $file = File->new('t/file7.test'); ... # croak in File::header() like($@, qr(Error in reading file header)); ...
package File; ... ... return $header; } ...