File.pm 355 B

1234567891011121314151617
  1. package NIC::Formats::NICTar::File;
  2. use parent qw(NIC::Formats::NICTar::_TarMixin NIC::NICBase::File);
  3. use strict;
  4. sub _take_init {
  5. my $self = shift;
  6. $self->NIC::NICBase::File::_take_init(@_);
  7. $self->NIC::Formats::NICTar::_TarMixin::_take_init(@_);
  8. }
  9. sub data {
  10. my $self = shift;
  11. return $self->SUPER::data(@_) // $self->tarfile->get_content;
  12. }
  13. 1;