use Catalyst::Exception;
use File::Copy ();
-use IO::File qw( SEEK_SET );
+use IO::File ();
use File::Spec::Unix;
use namespace::clean -except => 'meta';
binmode( $handle, $layer );
- $handle->seek(0, SEEK_SET);
+ $handle->seek(0, IO::File::SEEK_SET);
while ( $handle->sysread( my $buffer, 8192 ) ) {
$content .= $buffer;
}
- $handle->seek(0, SEEK_SET);
+ $handle->seek(0, IO::File::SEEK_SET);
return $content;
}