123456789101112131415161718192021 |
- package NIC::Formats::NICTar::_TarMixin;
- use strict;
- sub _take_init {
- my $self = shift;
- $self->{TARFILE} = undef;
- }
- sub tarfile {
- my $self = shift;
- if(@_) { $self->{TARFILE} = shift; }
- return $self->{TARFILE};
- }
- sub _mode {
- my $self = shift;
- return $self->tarfile->mode;
- }
- 1;
|