From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more
|
our $VERSION = '1.12.0.1' ;
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;
|