Select Code to Download

...
$file = File->new('t/file7.test');
...
# croak in File::header()
like($@, qr(Error in reading file header)); 
...

package File;
...
...
    return $header;
}
...