- package NIC::Formats::NICTar::Directory;
- use parent qw(NIC::Formats::NICTar::_TarMixin NIC::NICBase::Directory);
- use strict;
- sub _take_init {
- my $self = shift;
- $self->NIC::NICBase::Directory::_take_init(@_);
- $self->NIC::Formats::NICTar::_TarMixin::_take_init(@_);
- }
- 1;
|