# # (c) Jan Gehring # package Rex::Interface::File::Base; use v5.12.5; use warnings; our $VERSION = '1.16.0'; # VERSION sub new { my $that = shift; my $proto = ref($that) || $that; my $self = {@_}; bless( $self, $proto ); return $self; } sub open { die("Must be implemented by Interface Class."); } sub read { die("Must be implemented by Interface Class."); } sub write { die("Must be implemented by Interface Class."); } sub close { die("Must be implemented by Interface Class."); } sub seek { die("Must be implemented by Interface Class."); } 1;