Perl Critic and a formatting question.

[Anonymous Monk]

Hi monks.

In the following code:

#!\usr\bin\perl

package Test20;

use strict;
use warnings;
use autodie;
use Fcntl;
use version;
use Perl::Tidy;
use base qw/Exporter/;
our @EXPORT_OK = qw/&greet/;
our $VERSION = '0.1';
my @data;

sysopen FH, 'test.txt', O_RDONLY;
@data = <FH>;
close FH;

for (@data) {
    exit 1 if !print;
}

sub greet {
    my ($name) = shift;
    return "Hello $name";
}
1;

...perl critic complains about untidy code on column 1, row 1 if run in --brutal "mode". The complaint disappears if I remove the line our @EXPORT_OK = qw/&greet/;

Any suggestions would be appreciated.

Thanks