package File::stat;
use strict;
+use warnings;
-use 5.005_64;
+use 5.6.0;
our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+our $VERSION = '1.00';
+
BEGIN {
use Exporter ();
@EXPORT = qw(stat lstat);
# Class::Struct forbids use of @ISA
sub import { goto &Exporter::import }
-use Class::Struct;
+use Class::Struct qw(struct);
struct 'File::stat' => [
map { $_ => '$' } qw{
dev ino mode nlink uid gid rdev size